Index: cprs/branches/foia-cprs/CPRS-Chart/Accessibility_TLB.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Accessibility_TLB.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Accessibility_TLB.pas (revision 460) @@ -19,5 +19,5 @@ // LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71} // LCID: 0 -// Helpfile: +// Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINNT\System32\Stdole2.tlb) @@ -148,2 +148,8 @@ end. + + + + + + Index: cprs/branches/foia-cprs/CPRS-Chart/BA/UBACore.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/UBACore.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/UBACore.pas (revision 460) @@ -11,20 +11,22 @@ function rpcGetPersonalDxList(UserDUZ:int64):TStringList; function rpcDeleteFromPersonalDxList(UserDUZ:int64; Dest:TStringList):integer; -procedure rpcSaveBillingData(pBillingData:TStringList); +procedure rpcSaveBillingDxEntered; // save dx enteries regardless of being mandatory.... function rpcNonBillableOrders(pOrderList: TStringList): TStringList; function rpcOrderRequiresDx(pList: TStringList):boolean; -procedure rpcSetBillingAwareSwitch(encProvider: int64; encLocation: integer); +procedure rpcSetBillingAwareSwitch(encProvider: int64; pPatientDFN: string); procedure rpcGetProviderPatientDaysDx(ProviderIEN: string;PatientIEN: string); procedure rpcGetSC4Orders; // returns Eligible Treatment Factors for a given patient -procedure rpcSaveBillingDxEntered; // save dx enteries regardless of being mandatory.... + function rpcTreatmentFactorsActive(pOrderID: string):boolean; procedure rpcBuildSCIEList(pOrderList: TList); function rpcGetUnsignedOrdersBillingData(pOrderList: TStringList):TStringList; -function rpcRetrieveBillingData(thisOrderID: string; var thisBAData: string) : boolean; 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); @@ -32,5 +34,5 @@ procedure AttachPLTFactorsToDx(var Dest:String;ProblemRec:string); procedure BALoadStsFlagsAsIs(StsFlagsIN: string); -function BADxEntered:boolean; // This will only be executed if bypass switch is set... +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; @@ -52,14 +54,13 @@ function GetConsultFlags(pOrderID:String; pFlagList:TStringList;FlagsAsIs:string):string; function SetConsultFlags(pPLFactors: string;pFlagsAsIs: string):string; // return updated flags. -procedure GetBAStatus(pProvider:int64; pLocation:integer); +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); -//function SetOrderIDConsultDxRequired(pOrderID:String):String; // replace orderid with "R" if consult dx required. 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 @@ -75,36 +76,158 @@ -function rpcRetrieveBillingData(thisOrderID: string; var thisBAData: string) : boolean; -var - rpcResult: TStringList; - BAOrderExists : boolean; -begin - Result := false; - BAOrderExists := false; - rpcResult := TStringList.Create; - - tCallV(rpcResult, 'ORWDBA1 RCVORCI', [thisOrderID]); - BAOrderExists := StrToBool(rpcResult[0]); - - if (not BAOrderExists) then - //GRAB RETURNED BA DATA HERE - Result := true; -end; - -procedure rpcSaveBillingData(pBillingData:TStringList); +// ----------------- 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; - i: integer; - x: string; begin RecsToSave := TStringList.Create; RecsToSave.Clear; + RecsToSave := AttachDxToOrderList(pBillingData); //call with new Biling data, return-code returned - // for i := 0 to RecstoSave.Count-1 do - // begin -// ShowMessage('Data Sent to ORW ' + RecsToSave.Strings[i]); - // end; - CallV('ORWDBA1 RCVORCI',[RecsToSave]); - // if Assigned(UBAGlobals.BAConsultOrdersRequireDx) then UBAGlobals.BAConsultOrdersRequireDx.Clear; + rpcSaveCIDCData(RecsToSave); // verify and save billing data + if Assigned(UBAGlobals.BAOrderList) then UBAGlobals.BAOrderList.Clear; // hds00005025 end; @@ -123,5 +246,5 @@ pList.Add(pOrderID); Result := FALSE; - // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 + // 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 @@ -158,4 +281,5 @@ currentOrderString := pOrderList.Strings[i]; currentOrderID := piece(pOrderList.Strings[i],';',1)+ ';1'; + GetBADxListForOrder(baseDxRec, currentOrderID); FlagsStatsIn := BAFlagsIN; @@ -174,10 +298,8 @@ end; - - function rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean; -//input example ien^code = 12345^306.70 -begin - Result := (sCallV('ORWDBA2 ADDPDL', [UserDUZ,DxCodes])= '1'); +//input example ien^code(s) = 12345^306.70^431.22 +begin + Result := (sCallV('ORWDBA2 ADDPDL', [UserDUZ,DxCodes])= '1'); end; @@ -198,73 +320,46 @@ end; -function rpcOrderRequiresDx(pList: TStringList):boolean; -var x: string; - i,j: integer; - returnList, updatedList: TStringList; - begin -// for i := 0 to plist.count-1 do -// x := plist.strings[i]; - Result := FALSE; - 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(for 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 // change to test BA - begin - updatedBAOrderList.Add(BAOrderList[i]); - Result := TRUE; - end; - end; -end; // returns value used to bypass Billing Aware if needed. // turns off visual and functionality -procedure rpcSetBillingAwareSwitch(encProvider:int64; encLocation: integer); -begin - BILLING_AWARE := TRUE; - if (encProvider = 0) and not PersonHasKey(encProvider, 'PROVIDER') then - BILLING_AWARE := FALSE - else - begin - if (sCallV('ORWDBA1 BASTATUS', [nil]) = '1') then // Master switch is set "ON" - BILLING_AWARE := (sCallV('ORWDBA4 GETBAUSR', [encProvider]) = '1') - else - BILLING_AWARE := FALSE; - end; -end ; +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 := False; Result := (sCallV('ORWDBA1 BASTATUS', [nil]) = '1'); // Master switch is set "ON" - - -end; +end; + procedure rpcSaveNurseConsultOrder(pOrderRec:TStringList); begin - CallV('ORWDBA1 RCVORCI',[pOrderRec]); -end; + rpcSaveCIDCData(pOrderRec); +end; + procedure rpcSaveBillingDxEntered; // if not mandatory and user enters dx. @@ -295,7 +390,7 @@ baseDxRec := nil; baseDxRec := TBADxRecord.Create; - InitializeNewDxRec(baseDxRec); - - try + InitializeNewDxRec(baseDxRec); + + try for i := 0 to BAOrderList.Count-1 do begin @@ -305,22 +400,18 @@ if baseDxRec.FBADxCode <> '' then begin - NewBillingList.Add(currentOrderString +'^'+ baseDxRec.FBADxCode +'^'+ baseDxRec.FBASecDx1+ + 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; + except + on EListError do + begin + {$ifdef debug}ShowMessage('EListError in UBACore.rpcSaveBillingDxEntered()');{$endif} + raise; end; end; - if NewBillingList.Count > 0 then - CallV('ORWDBA1 RCVORCI',[NewBillingList]); //1.3.10 - + rpcSaveCIDCData(NewBillingList); if Assigned(NewBillingList) then FreeAndNil(NewBillingList); - // if Assigned(UBAGlobals.BAConsultOrdersRequireDx) then UBAGlobals.BAConsultOrdersRequireDx.Clear; - end; end; @@ -335,6 +426,5 @@ procedure rpcGetProviderPatientDaysDx(ProviderIEN: string;PatientIEN: string); -var i:integer; - x: string; +var tmplst: TStringList; begin @@ -351,5 +441,4 @@ function rpcGetTFHintData:TStringList; begin - Result := nil; tCallv(BATFHints,'ORWDBA3 HINTS', [nil]); Result := BATFHints; @@ -366,5 +455,4 @@ rList.Clear; NonBillableOrderList.Clear; - Result := NonBillableOrderList; // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 tCallV(rList,'ORWDBA1 ORPKGTYP',[pOrderList]); @@ -396,5 +484,5 @@ end; // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 - tCallV(rList,'ORWDBA1 ORPKGTYP',[OrderIDList]); + tCallV(rList,'ORWDBA1 ORPKGTYP',[OrderIDList]); for i := 0 to rList.Count-1 do @@ -403,4 +491,26 @@ 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; @@ -433,6 +543,6 @@ if tempDxRec.FBADxCode = '' then begin - Result := FALSE; - Break; + Result := FALSE; + Break; end; end; @@ -452,74 +562,4 @@ -function BADxEntered:boolean; -var - i, orderStatus: integer; - x: string; - passList: TStringList; - holdOrderList: TStringList; - thisOrderID: string; - thisRec: string; -begin - Result := FALSE; - 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 - - orderStatus := 0; - Result := true; - - try - 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 orderStatus = integer(BAOK2SIGN) then - begin - passList.Add(piece(x,';',1)); - holdOrderList.Add(x);// place holder for orders that can be signed! - end; - end; - except - on EListError do - begin - {$ifdef debug}ShowMessage('EListError in UBACore.BADxEntered()');{$endif} - raise; - 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); - - if updatedBAOrderList.Count <= 0 then // order list reflecting orders flagged as - - begin // dx required. - Result := TRUE; // force true, no record need DX entry - rpcSaveBillingDxEntered; // save billing data for orders that may have dx enteries - Exit; //to do. clean this up... when time permitts - end - else - begin - if OrdersHaveDx(UBAGlobals.BAOrderList) then - rpcSaveBillingData(UBAGlobals.BAOrderList) - else - begin - Result := FALSE; - Exit; - end; - end; -end; @@ -557,7 +597,13 @@ thisRec.FBASC := Piece(ProblemRec,U,5); thisRec.FBASC_YN := Piece(ProblemRec,U,6); - thisRec.FBATreatFactors := Piece(ProblemRec,')',1); - thisRec.FBATreatFactors := Piece(thisRec.FBATreatFactors,'(',2); - + //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 @@ -571,5 +617,5 @@ TFResults := ( FBADxCode + U + FBADxText ); end; - + Dest := TFResults; end; @@ -657,8 +703,8 @@ var strDxCode,strDxName:string; begin - Result := ''; - strDxCode := Piece(FactorsIN,U,2); - strDxName := Piece(FactorsIN,'(',1); - Result := (strDxName + U + strDxCode); + Result := ''; + strDxCode := Piece(FactorsIN,U,2); + strDxName := Piece(FactorsIN,'(',1); + Result := (strDxName + U + strDxCode); end; @@ -684,36 +730,4 @@ Result := tmplst; -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 - Result := FALSE //= Non Billable - end; - except - on EListError do - begin - {$ifdef debug}ShowMessage('EListError in UBACore.IsOrderBillable()');{$endif} - raise; - end; - end; end; @@ -748,5 +762,5 @@ // 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 + // / if not clear treatment factors for order is non cidc uBAGlobals.UnsignedOrders.Add(pOrderRec); @@ -764,10 +778,10 @@ 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; + + 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]); @@ -781,6 +795,4 @@ thisList: TStringList; rList: TStringList; - i:integer; - x: string; begin @@ -789,7 +801,5 @@ if Assigned(rList) then rList.Clear; if Assigned(thisList)then thisList.Clear; - for i := 0 to pOrderList.Count -1 do - x := pOrderList.Strings[i]; - rpcSaveBillingData(pOrderList); // save unsigned info to be displayed when recalled at later time + SaveBillingData(pOrderList); // save unsigned info to be displayed when recalled at later time end; @@ -980,5 +990,5 @@ function IsAllOrdersNA(pOrderList:TStringList):boolean; var - i,j:integer; + i:integer; rList: TStringList; begin @@ -986,20 +996,5 @@ if Assigned(rList) then rList.Clear; Result := True;// disables dx button - for j := 0 to pOrderList.Count-1 do - begin - // code added to allow consult orders that are not cidc but require dx, dx can be edited. - if tempDxNodeExists(pOrderList.Strings[j]) then - begin - Result := False; - Exit; - end - else - if Piece(pOrderList.Strings[j],';',2) = DISCONTINUED_ORDER then - begin - Result := True; - Exit; - end; - - end; + // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0 tCallV(rList,'ORWDBA1 ORPKGTYP',[pOrderList]); @@ -1097,11 +1092,11 @@ if pos( '(', thisString) > 0 then begin - dx2 := Piece(thisString,U,2); - dx2 := Piece(dx2,'(',1)+ U + Piece(thisString,':',2); + 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); + dx2 := Piece(thisString,U,2); + dx2 := Piece(dx2,':',1)+ U + Piece(thisString,':',2); end end @@ -1111,11 +1106,11 @@ if pos( '(', thisString) > 0 then begin - dx3 := Piece(thisString,U,2); - dx3 := Piece(dx3,'(',1)+ U + Piece(thisString,':',2); + 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); + dx3 := Piece(thisString,U,2); + dx3 := Piece(dx3,':',1)+ U + Piece(thisString,':',2); end end @@ -1125,11 +1120,11 @@ if pos( '(', thisString) > 0 then begin - dx4 := Piece(thisString,U,2); - dx4 := Piece(dx4,'(',1)+ U + Piece(thisString,':',2); + 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); + dx4 := Piece(thisString,U,2); + dx4 := Piece(dx4,':',1)+ U + Piece(thisString,':',2); end; end; @@ -1206,11 +1201,13 @@ dxRec := BuildConsultDxRec(ConsultOrderRec); orderList.Add(RecOut.FExistingRecordID); - TfFlags := Piece(GetPatientTFactors(orderList),U,2); + // 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 + // if strLen(PChar(dxRec)) > 0 then + // orderList.Add(RecOut.FExistingRecordID +TfFlags + '^'+ BuildConsultDxRec(ConsultOrderRec) ) + // else orderList.Add(RecOut.FExistingRecordID +TfFlags); - rpcSaveBillingData(OrderList); // save unsigned info to be displayed when re + SaveBillingData(OrderList); // save unsigned info to be displayed when re end; end; @@ -1241,9 +1238,9 @@ 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 := ''; + 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); @@ -1279,4 +1276,8 @@ 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 @@ -1289,10 +1290,10 @@ end; -procedure GetBAStatus(pProvider:int64; pLocation:integer); +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,pLocation); + UBACore.rpcSetBillingAwareSwitch(pProvider,pPatientDFN); if Assigned(UBAGlobals.BAPCEDiagList) then UBAGlobals.BAPCEDiagList.Clear; @@ -1374,4 +1375,6 @@ Result := (strSC + strAO + strIR + strEC + strMST + strHNC + strCV); end; + + // Delete dc'd orders from BACopiedOrderList to keep things in sync. procedure DeleteDCOrdersFromCopiedList(pOrderID:string); @@ -1396,5 +1399,5 @@ procedure UpdateBAConsultOrderList(pDcOrders: TStringList); var - AnOrder,x: string; + x: string; var i,j: integer; holdList : TStringList; @@ -1425,22 +1428,50 @@ end; -{function SetOrderIDConsultDxRequired(pOrderID:string):string; -var - i: integer; - orderIdIN, OrderIdOut,x: string; -begin - result := ''; - for i := 0 to UBAGlobals.BAConsultOrdersRequireDx.Count-1 do - begin - orderIdIN := pOrderID; - x := UBAGlobals.BAConsultOrdersRequireDx.Strings[i]; - if orderIdIN = UBAGlobals.BAConsultOrdersRequireDx.Strings[i] then - orderIdOUT := 'CONSULT_DX' // consult requires dx entry. enable display of cidc and non-cidc - else - orderIdOUT := orderIdIN; - end; - result := OrderIdOut; -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. Index: cprs/branches/foia-cprs/CPRS-Chart/BA/UBAGlobals.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/UBAGlobals.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/UBAGlobals.pas (revision 460) @@ -316,6 +316,4 @@ sourceOrderID: TStringList; targetOrderIDLst: TStringList; - i:integer; - tempOrderStr:string; begin //Retrieve TF's/CI's from SOURCE Order @@ -371,5 +369,4 @@ if UBAGlobals.tempDxNodeExists(thisOrderID) then begin - thisRec := TBADxRecord.Create; if Assigned(tempDxList) then @@ -523,5 +520,4 @@ begin Result := 0; - thisRec := TBADxRecord.Create; if Assigned(tempDxList) then @@ -580,5 +576,4 @@ selectedOrders: smallint; begin - Result := 0; selectedOrders := 0; @@ -762,5 +757,4 @@ if UBAGlobals.tempDxNodeExists(thisOrderID) then begin - thisRec := TBADxRecord.Create; if Assigned(tempDxList) then @@ -878,5 +872,4 @@ Result := false; - thisRec := TBADxRecord.Create; try for i := 0 to tempDxList.Count - 1 do @@ -909,5 +902,4 @@ i: integer; begin - thisRec := TBADxRecord.Create; try @@ -1013,9 +1005,6 @@ // StringList used to store DX Codes selected from Encounter Form var - BAVisitStr,BADxIEN: string; - BAFileCat : char; - BAFileDateTimeStr: string; + BADxIEN: string; BAProviderStr, BAProviderName : string; - PList: TStringList; AList: TStringList; begin @@ -1106,5 +1095,4 @@ begin Result := false; - thisRec := TBADxRecord.Create; if Assigned(tempDxList) then try Index: cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.dfm (revision 460) @@ -21,18 +21,9 @@ PixelsPerInch = 96 TextHeight = 13 - object lblPatientName: TStaticText - Left = 50 - Top = 3 - Width = 65 - Height = 17 - Caption = 'PatientName' - TabOrder = 3 - TabStop = True - end object pnlTop: TPanel Left = 0 Top = 0 Width = 612 - Height = 112 + Height = 96 Align = alTop Caption = 'pnlTop' @@ -40,8 +31,8 @@ DesignSize = ( 612 - 112) + 96) object lbOrders: TListBox - Left = 8 - Top = 24 + Left = 7 + Top = 25 Width = 599 Height = 69 @@ -49,9 +40,9 @@ IntegralHeight = True ItemHeight = 13 - TabOrder = 1 + TabOrder = 2 OnMouseMove = lbOrdersMouseMove end object ORStaticText1: TORStaticText - Left = 8 + Left = 216 Top = 8 Width = 169 @@ -59,15 +50,30 @@ 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 - OnEnter = ORStaticText1Enter - OnExit = ORStaticText1Exit end end object pnlMain: TPanel Left = 0 - Top = 112 + Top = 96 Width = 612 - Height = 243 + Height = 259 Align = alClient TabOrder = 1 Index: cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.pas (revision 460) @@ -18,5 +18,4 @@ end; TfrmBALocalDiagnoses = class(TfrmAutoSz) - lblPatientName: TStaticText; pnlTop: TPanel; lbOrders: TListBox; @@ -38,4 +37,5 @@ ORStaticText3: TORStaticText; ORStaticText4: TORStaticText; + lblPatientName: TStaticText; procedure buOKClick(Sender: TObject); procedure buCancelClick(Sender: TObject); @@ -798,6 +798,6 @@ procedure TfrmBALocalDiagnoses.AddToProblemList; var - i,j: integer; - tempCode, passCode,x: string; + i: integer; + tempCode, passCode: string; NewList: TStringList; PatientInfo:string; Index: cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm (revision 460) @@ -30,5 +30,5 @@ TabOrder = 0 object Splitter1: TSplitter - Left = 468 + Left = 458 Top = 26 Width = -3 @@ -37,5 +37,5 @@ end object Splitter2: TSplitter - Left = 193 + Left = 169 Top = 26 Width = 7 @@ -44,5 +44,5 @@ end object Splitter3: TSplitter - Left = 467 + Left = 457 Top = 26 Width = 1 @@ -50,13 +50,6 @@ Cursor = crHSplit end - object Splitter4: TSplitter - Left = 385 - Top = 26 - Width = 2 - Height = 463 - Cursor = crHSplit - end object Splitter5: TSplitter - Left = 465 + Left = 455 Top = 26 Width = 2 @@ -112,5 +105,5 @@ Left = 1 Top = 26 - Width = 192 + Width = 168 Height = 463 Align = alLeft @@ -126,7 +119,6 @@ Left = 0 Top = 17 - Width = 192 + Width = 161 Height = 446 - Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -148,5 +140,5 @@ Left = 0 Top = 0 - Width = 192 + Width = 168 Height = 17 DragReorder = False @@ -161,7 +153,7 @@ end object Panel4: TPanel - Left = 200 - Top = 26 - Width = 185 + Left = 176 + Top = 26 + Width = 201 Height = 463 Align = alLeft @@ -177,12 +169,12 @@ Left = 0 Top = 17 - Width = 185 + Width = 201 Height = 446 - Align = alLeft - Anchors = [akTop, akRight, akBottom] + Align = alClient ItemHeight = 13 MultiSelect = True ParentShowHint = False ShowHint = True + Sorted = True TabOrder = 0 OnClick = lbDiagnosisChange @@ -196,5 +188,5 @@ Left = 0 Top = 0 - Width = 185 + Width = 201 Height = 17 DragReorder = False @@ -209,7 +201,7 @@ end object Panel5: TPanel - Left = 465 - Top = 26 - Width = 247 + Left = 455 + Top = 26 + Width = 257 Height = 463 Align = alClient @@ -220,5 +212,5 @@ Left = 0 Top = 17 - Width = 247 + Width = 257 Height = 446 Align = alClient @@ -229,4 +221,5 @@ ParentShowHint = False ShowHint = True + Sorted = True TabOrder = 0 OnClick = lbPersonalDxClick @@ -238,5 +231,5 @@ Left = 0 Top = 0 - Width = 247 + Width = 257 Height = 17 DragReorder = False @@ -277,5 +270,5 @@ end object Panel7: TPanel - Left = 387 + Left = 377 Top = 26 Width = 78 Index: cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.pas (revision 460) @@ -29,5 +29,4 @@ btnAdd: TBitBtn; btnDelete: TBitBtn; - Splitter4: TSplitter; Splitter5: TSplitter; Button1: TButton; @@ -65,4 +64,6 @@ procedure ListDiagnosesCodes(Section: String); procedure InactiveICDNotification; + procedure SyncDxDeleteList; + procedure SyncDxNewList; public @@ -123,11 +124,12 @@ LoadEncounterDx; ListDiagnosesSections(lbSections.Items); - lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ); + // 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.Sorted := false; + // lbPersonalDx.Sorted := True; lbPersonalDX.Repaint; end; @@ -374,18 +376,9 @@ procedure TfrmBAOptionsDiagnoses.btnDeleteClick(Sender: TObject); var - delDxCode: string; - i, c: integer; -begin - inherited; - // save dx seleted 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; - + i, c: integer; +begin + inherited; + SyncDxDeleteList; + SyncDxNewList; // delete selected dx from listbox. with lbPersonalDX do @@ -599,4 +592,42 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/CPRS.vpw =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRS.vpw (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRS.vpw (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.bak =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.bak (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.bak (revision 460) @@ -0,0 +1,328 @@ +program CPRSChart; + +uses + SQASrvr, + 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. Index: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.cfg =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.cfg (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.cfg (revision 460) @@ -25,4 +25,5 @@ -$YD -$Z1 +-GD -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -32,10 +33,10 @@ -$M32768,1048576 -K$00400000 --E"..\CPRS-Chart" --N"..\CPRS-Chart\DCU" --LE"..\Packages" --LN"..\Packages" --U"c:\program files\borland\delphi6\Lib\Debug;..\CPRS-Lib" --O"c:\program files\borland\delphi6\Lib\Debug;..\CPRS-Lib" --I"c:\program files\borland\delphi6\Lib\Debug;..\CPRS-Lib" --R"c:\program files\borland\delphi6\Lib\Debug;..\CPRS-Lib" +-E"C:\Vista\cprs\OR_3_215V26\CPRS-Chart" +-N"C:\Vista\cprs\OR_3_215V26\CPRS-Chart\DCU" +-LE"C:\Vista\cprs\OR_3_215V26\Packages" +-LN"C:\Vista\cprs\OR_3_215V26\Packages" +-U"c:\program files\borland\delphi6\Lib\Debug;C:\Vista\cprs\OR_3_215V26\CPRS-Lib" +-O"c:\program files\borland\delphi6\Lib\Debug;C:\Vista\cprs\OR_3_215V26\CPRS-Lib" +-I"c:\program files\borland\delphi6\Lib\Debug;C:\Vista\cprs\OR_3_215V26\CPRS-Lib" +-R"c:\program files\borland\delphi6\Lib\Debug;C:\Vista\cprs\OR_3_215V26\CPRS-Lib" Index: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dof =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dof (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dof (revision 460) @@ -32,5 +32,5 @@ UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] -MapFile=0 +MapFile=3 OutputObjs=0 ConsoleApp=1 @@ -42,9 +42,9 @@ ExeDescription= [Directories] -OutputDir=..\CPRS-Chart -UnitOutputDir=..\CPRS-Chart\DCU -PackageDLLOutputDir=..\Packages -PackageDCPOutputDir=..\Packages -SearchPath=$(DELPHI)\Lib\Debug;..\CPRS-Lib +OutputDir=C:\Vista\cprs\OR_3_215V26\CPRS-Chart +UnitOutputDir=C:\Vista\cprs\OR_3_215V26\CPRS-Chart\DCU +PackageDLLOutputDir=C:\Vista\cprs\OR_3_215V26\Packages +PackageDCPOutputDir=C:\Vista\cprs\OR_3_215V26\Packages +SearchPath=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_215V26\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= @@ -66,6 +66,6 @@ MajorVer=1 MinorVer=0 -Release=25 -Build=42 +Release=26 +Build=68 Debug=0 PreRelease=0 @@ -77,30 +77,29 @@ [Version Info Keys] CompanyName=Department of Veterans Affairs -FileDescription=5/31/2005 -FileVersion=1.0.25.42 -InternalName=1.0.25.42 server required +FileDescription=6/5/2006 +FileVersion=1.0.26.68 +InternalName=1.0.26.68 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 195 +OriginalFilename=Patch 215 ProductName=Computerized Patient Record System ProductVersion=1.0.0.0 -Comments=Version 1.0.25.42 +Comments=Version 1.0.26.68 [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] -Count=2 -Item0=$(DELPHI)\Lib\Debug;..\CPRS-Lib -Item1=..\CPRS-Lib +Count=1 +Item0=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_215V26\CPRS-Lib [HistoryLists\hlUnitOutputDirectory] Count=1 -Item0=..\CPRS-Chart\DCU +Item0=C:\Vista\cprs\OR_3_215V26\CPRS-Chart\DCU [HistoryLists\hlOutputDirectorry] Count=1 -Item0=..\CPRS-Chart +Item0=C:\Vista\cprs\OR_3_215V26\CPRS-Chart [HistoryLists\hlBPLOutput] Count=1 -Item0=..\Packages +Item0=C:\Vista\cprs\OR_3_215V26\Packages [HistoryLists\hlDCPOutput] Count=1 -Item0=..\Packages +Item0=C:\Vista\cprs\OR_3_215V26\Packages Index: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dpr =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dpr (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dpr (revision 460) @@ -2,4 +2,6 @@ uses + SQASrvr, + ShareMem, Forms, ORSystem, @@ -169,5 +171,4 @@ uOrders in 'Orders\uOrders.pas', fOCSession in 'Orders\fOCSession.pas' {frmOCSession}, - fODAllgy in 'Orders\fODAllgy.pas', fODAuto in 'Orders\fODAuto.pas', fODBase in 'Orders\fODBase.pas' {frmODBase}, @@ -288,5 +289,16 @@ UBACore in 'BA\UBACore.pas', fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses}, - fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule}; + 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} @@ -310,4 +322,5 @@ Application.CreateForm(TdmodShared, dmodShared); Application.CreateForm(TfrmFrame, frmFrame); + Application.CreateForm(TfrmSearchStop, frmSearchStop); frmSplash.Free; // close & free splash screen Application.Run; Index: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.drc =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.drc (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.drc (revision 460) @@ -9,385 +9,491 @@ */ -#define VDBConsts_SRefreshRecord 65152 -#define VDBConsts_SRemoteLogin 65153 -#define OleConst_SInvalidLicense 65168 -#define OleConst_SNotLicensed 65169 -#define OleConst_sNoRunningObject 65170 -#define DBConsts_SBcdOverflow 65171 -#define DBConsts_SInvalidBcdValue 65172 -#define DBConsts_SCouldNotParseTimeStamp 65173 -#define DBConsts_SInvalidSqlTimeStamp 65174 -#define VDBConsts_SFirstRecord 65175 -#define VDBConsts_SPriorRecord 65176 -#define VDBConsts_SNextRecord 65177 -#define VDBConsts_SLastRecord 65178 -#define VDBConsts_SInsertRecord 65179 -#define VDBConsts_SDeleteRecord 65180 -#define VDBConsts_SEditRecord 65181 -#define VDBConsts_SPostEdit 65182 -#define VDBConsts_SCancelEdit 65183 -#define TeeConst_TeeMsg_FunctionMultiply 65184 -#define TeeConst_TeeMsg_FunctionDivide 65185 -#define TeeConst_TeeMsg_FunctionHigh 65186 -#define TeeConst_TeeMsg_FunctionLow 65187 -#define TeeConst_TeeMsg_FunctionAverage 65188 -#define TeeConst_TeeMsg_DefaultFontName 65189 -#define TeeConst_TeeMsg_CheckPointerSize 65190 -#define TeeConst_TeeMsg_FunctionPeriod 65191 -#define TeeConst_TeeMsg_PieOther 65192 -#define TeeConst_TeeMsg_ValuesX 65193 -#define TeeConst_TeeMsg_ValuesY 65194 -#define TeeConst_TeeMsg_ValuesPie 65195 -#define TeeConst_TeeMsg_ValuesBar 65196 -#define TeeConst_TeeMsg_ValuesAngle 65197 -#define OleConst_SCannotActivate 65198 -#define OleConst_SNoWindowHandle 65199 -#define TeeConst_TeeMsg_GalleryPie 65200 -#define TeeConst_TeeMsg_GalleryFastLine 65201 -#define TeeConst_TeeMsg_Rotation 65202 -#define TeeConst_TeeMsg_PieSample1 65203 -#define TeeConst_TeeMsg_PieSample2 65204 -#define TeeConst_TeeMsg_PieSample3 65205 -#define TeeConst_TeeMsg_PieSample4 65206 -#define TeeConst_TeeMsg_PieSample5 65207 -#define TeeConst_TeeMsg_PieSample6 65208 -#define TeeConst_TeeMsg_PieSample7 65209 -#define TeeConst_TeeMsg_PieSample8 65210 -#define TeeConst_TeeMsg_GalleryStandard 65211 -#define TeeConst_TeeMsg_GalleryFunctions 65212 -#define TeeConst_TeeMsg_DefaultFontSize 65213 -#define TeeConst_TeeMsg_FunctionAdd 65214 -#define TeeConst_TeeMsg_FunctionSubtract 65215 -#define TeeConst_TeeMsg_AxisLogBase 65216 -#define TeeConst_TeeMsg_MaxPointsPerPage 65217 -#define TeeConst_TeeMsg_3dPercent 65218 -#define TeeConst_TeeMsg_CircularSeries 65219 -#define TeeConst_TeeMsg_BarWidthPercent 65220 -#define TeeConst_TeeMsg_BarOffsetPercent 65221 -#define TeeConst_TeeMsg_DefaultPercentOf 65222 -#define TeeConst_TeeMsg_DefPercentFormat 65223 -#define TeeConst_TeeMsg_DefValueFormat 65224 -#define TeeConst_TeeMsg_AxisTitle 65225 -#define TeeConst_TeeMsg_AxisLabels 65226 -#define TeeConst_TeeMsg_GalleryLine 65227 -#define TeeConst_TeeMsg_GalleryPoint 65228 -#define TeeConst_TeeMsg_GalleryArea 65229 -#define TeeConst_TeeMsg_GalleryBar 65230 -#define TeeConst_TeeMsg_GalleryHorizBar 65231 -#define ComConst_SAutomationWarning 65232 -#define ComConst_SNoCloseActiveServer1 65233 -#define ComConst_SNoCloseActiveServer2 65234 -#define TeeConst_TeeMsg_LegendTopPos 65235 -#define TeeConst_TeeMsg_LegendFirstValue 65236 -#define TeeConst_TeeMsg_LegendColorWidth 65237 -#define TeeConst_TeeMsg_SeriesSetDataSource 65238 -#define TeeConst_TeeMsg_SeriesInvDataSource 65239 -#define TeeConst_TeeMsg_FillSample 65240 -#define TeeConst_TeeMsg_Angle 65241 -#define TeeConst_TeeMsg_AxisLogDateTime 65242 -#define TeeConst_TeeMsg_AxisLogNotPositive 65243 -#define TeeConst_TeeMsg_AxisLabelSep 65244 -#define TeeConst_TeeMsg_AxisIncrementNeg 65245 -#define TeeConst_TeeMsg_AxisMinMax 65246 -#define TeeConst_TeeMsg_AxisMaxMin 65247 -#define ComStrs_sDateTimeMin 65248 -#define ComStrs_sFailSetCalDateTime 65249 -#define ComStrs_sFailSetCalMaxSelRange 65250 -#define ComStrs_sFailSetCalMinMaxRange 65251 -#define ComStrs_sFailsetCalSelRange 65252 -#define ComConst_SCreateRegKeyError 65253 -#define ComConst_SOleError 65254 -#define ComConst_SObjectFactoryMissing 65255 -#define ComConst_STypeInfoMissing 65256 -#define ComConst_SBadTypeInfo 65257 -#define ComConst_SDispIntfMissing 65258 -#define ComConst_SNoMethod 65259 -#define ComConst_SVarNotObject 65260 -#define ComConst_STooManyParams 65261 -#define ComConst_SDCOMNotInstalled 65262 -#define ComConst_SDAXError 65263 -#define ComStrs_sTabFailDelete 65264 -#define ComStrs_sTabFailRetrieve 65265 -#define ComStrs_sTabFailGetObject 65266 -#define ComStrs_sTabFailSet 65267 -#define ComStrs_sTabFailSetObject 65268 -#define ComStrs_sTabMustBeMultiLine 65269 -#define ComStrs_sInvalidIndex 65270 -#define ComStrs_sInsertError 65271 -#define ComStrs_sInvalidOwner 65272 -#define ComStrs_sRichEditInsertError 65273 -#define ComStrs_sRichEditLoadFail 65274 -#define ComStrs_sRichEditSaveFail 65275 -#define ComStrs_sUDAssociated 65276 -#define ComStrs_sPageIndexError 65277 -#define ComStrs_sInvalidComCtl32 65278 -#define ComStrs_sDateTimeMax 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 HelpIntfs_hNoTableOfContents 65291 -#define HelpIntfs_hNothingFound 65292 -#define HelpIntfs_hNoContext 65293 -#define HelpIntfs_hNoTopics 65294 -#define ComStrs_sTabFailClear 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_SFCreateError 65409 -#define RTLConsts_SFixedColTooBig 65410 -#define RTLConsts_SFixedRowTooBig 65411 -#define RTLConsts_SFOpenError 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_SInvalidVarNullOp 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_SArgumentMissing 65488 -#define SysConst_SDispatchError 65489 -#define SysConst_SReadAccess 65490 -#define SysConst_SWriteAccess 65491 -#define SysConst_SFormatTooLong 65492 -#define SysConst_SVarArrayCreate 65493 -#define SysConst_SVarArrayBounds 65494 -#define SysConst_SVarArrayLocked 65495 -#define SysConst_SInvalidVarCast 65496 -#define SysConst_SInvalidVarOp 65497 -#define SysConst_SInvalidVarOpWithHResult 65498 -#define SysConst_SVarNotArray 65499 -#define SysConst_SVarTypeOutOfRange 65500 -#define SysConst_SVarTypeAlreadyUsed 65501 -#define SysConst_SVarTypeNotUsable 65502 -#define SysConst_SVarTypeTooManyCustom 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_SAccessViolation 65512 -#define SysConst_SStackOverflow 65513 -#define SysConst_SControlC 65514 -#define SysConst_SPrivilege 65515 -#define SysConst_SOperationAborted 65516 -#define SysConst_SException 65517 -#define SysConst_SExceptTitle 65518 -#define SysConst_SInvalidFormat 65519 +#define TeeConst_TeeMsg_ValuesGanttStart 65056 +#define TeeConst_TeeMsg_ValuesGanttEnd 65057 +#define TeeConst_TeeMsg_ValuesGanttNextTask 65058 +#define TeeConst_TeeMsg_ValuesArrowEndX 65059 +#define TeeConst_TeeMsg_ValuesArrowEndY 65060 +#define VDBConsts_SFirstRecord 65061 +#define VDBConsts_SPriorRecord 65062 +#define VDBConsts_SNextRecord 65063 +#define VDBConsts_SLastRecord 65064 +#define VDBConsts_SInsertRecord 65065 +#define VDBConsts_SDeleteRecord 65066 +#define VDBConsts_SEditRecord 65067 +#define VDBConsts_SPostEdit 65068 +#define VDBConsts_SCancelEdit 65069 +#define VDBConsts_SRefreshRecord 65070 +#define VDBConsts_SRemoteLogin 65071 +#define TeeConst_TeeMsg_FunctionAdd 65072 +#define TeeConst_TeeMsg_FunctionSubtract 65073 +#define TeeConst_TeeMsg_FunctionMultiply 65074 +#define TeeConst_TeeMsg_FunctionDivide 65075 +#define TeeConst_TeeMsg_FunctionHigh 65076 +#define TeeConst_TeeMsg_FunctionLow 65077 +#define TeeConst_TeeMsg_FunctionAverage 65078 +#define TeeConst_TeeMsg_DefaultFontName 65079 +#define TeeConst_TeeMsg_CheckPointerSize 65080 +#define TeeConst_TeeMsg_FunctionPeriod 65081 +#define TeeConst_TeeMsg_PieOther 65082 +#define TeeConst_TeeMsg_ValuesX 65083 +#define TeeConst_TeeMsg_ValuesY 65084 +#define TeeConst_TeeMsg_ValuesPie 65085 +#define TeeConst_TeeMsg_ValuesBar 65086 +#define TeeConst_TeeMsg_ValuesAngle 65087 +#define TeeConst_TeeMsg_PieSample8 65088 +#define TeeConst_TeeMsg_GalleryStandard 65089 +#define TeeConst_TeeMsg_GalleryFunctions 65090 +#define TeeConst_TeeMsg_GalleryArrow 65091 +#define TeeConst_TeeMsg_GalleryGantt 65092 +#define TeeConst_TeeMsg_GanttSample1 65093 +#define TeeConst_TeeMsg_GanttSample2 65094 +#define TeeConst_TeeMsg_GanttSample3 65095 +#define TeeConst_TeeMsg_GanttSample4 65096 +#define TeeConst_TeeMsg_GanttSample5 65097 +#define TeeConst_TeeMsg_GanttSample6 65098 +#define TeeConst_TeeMsg_GanttSample7 65099 +#define TeeConst_TeeMsg_GanttSample8 65100 +#define TeeConst_TeeMsg_GanttSample9 65101 +#define TeeConst_TeeMsg_GanttSample10 65102 +#define TeeConst_TeeMsg_DefaultFontSize 65103 +#define TeeConst_TeeMsg_AxisLabels 65104 +#define TeeConst_TeeMsg_GalleryLine 65105 +#define TeeConst_TeeMsg_GalleryPoint 65106 +#define TeeConst_TeeMsg_GalleryArea 65107 +#define TeeConst_TeeMsg_GalleryBar 65108 +#define TeeConst_TeeMsg_GalleryHorizBar 65109 +#define TeeConst_TeeMsg_GalleryPie 65110 +#define TeeConst_TeeMsg_GalleryFastLine 65111 +#define TeeConst_TeeMsg_Rotation 65112 +#define TeeConst_TeeMsg_PieSample1 65113 +#define TeeConst_TeeMsg_PieSample2 65114 +#define TeeConst_TeeMsg_PieSample3 65115 +#define TeeConst_TeeMsg_PieSample4 65116 +#define TeeConst_TeeMsg_PieSample5 65117 +#define TeeConst_TeeMsg_PieSample6 65118 +#define TeeConst_TeeMsg_PieSample7 65119 +#define TeeConst_TeeMsg_AxisLogDateTime 65120 +#define TeeConst_TeeMsg_AxisLogNotPositive 65121 +#define TeeConst_TeeMsg_AxisLabelSep 65122 +#define TeeConst_TeeMsg_AxisIncrementNeg 65123 +#define TeeConst_TeeMsg_AxisMinMax 65124 +#define TeeConst_TeeMsg_AxisMaxMin 65125 +#define TeeConst_TeeMsg_AxisLogBase 65126 +#define TeeConst_TeeMsg_MaxPointsPerPage 65127 +#define TeeConst_TeeMsg_3dPercent 65128 +#define TeeConst_TeeMsg_CircularSeries 65129 +#define TeeConst_TeeMsg_BarWidthPercent 65130 +#define TeeConst_TeeMsg_BarOffsetPercent 65131 +#define TeeConst_TeeMsg_DefaultPercentOf 65132 +#define TeeConst_TeeMsg_DefPercentFormat 65133 +#define TeeConst_TeeMsg_DefValueFormat 65134 +#define TeeConst_TeeMsg_AxisTitle 65135 +#define bdeconst_SInitError 65136 +#define bdeconst_SIDAPILangID 65137 +#define bdeconst_SBDEError 65138 +#define bdeconst_SNoDataSetField 65139 +#define bdeconst_SNoCachedUpdates 65140 +#define bdeconst_SNoFieldAccess 65141 +#define bdeconst_SUntitled 65142 +#define bdeconst_SUpdateFailed 65143 +#define bdeconst_SLocalTransDirty 65144 +#define TeeConst_TeeMsg_LegendTopPos 65145 +#define TeeConst_TeeMsg_LegendFirstValue 65146 +#define TeeConst_TeeMsg_LegendColorWidth 65147 +#define TeeConst_TeeMsg_SeriesSetDataSource 65148 +#define TeeConst_TeeMsg_SeriesInvDataSource 65149 +#define TeeConst_TeeMsg_FillSample 65150 +#define TeeConst_TeeMsg_Angle 65151 +#define bdeconst_SAutoSessionExists 65152 +#define bdeconst_SAutoSessionActive 65153 +#define bdeconst_SDuplicateDatabaseName 65154 +#define bdeconst_SDuplicateSessionName 65155 +#define bdeconst_SInvalidSessionName 65156 +#define bdeconst_SDatabaseNameMissing 65157 +#define bdeconst_SSessionNameMissing 65158 +#define bdeconst_SDatabaseOpen 65159 +#define bdeconst_SDatabaseClosed 65160 +#define bdeconst_SDatabaseHandleSet 65161 +#define bdeconst_SSessionActive 65162 +#define bdeconst_SHandleError 65163 +#define bdeconst_SNoReferenceTableName 65164 +#define bdeconst_SEmptySQLStatement 65165 +#define bdeconst_SNoParameterValue 65166 +#define bdeconst_SLoginError 65167 +#define DBConsts_STextTrue 65168 +#define DBConsts_SParameterNotFound 65169 +#define DBConsts_SInvalidVersion 65170 +#define DBConsts_SBadFieldType 65171 +#define DBConsts_SProviderSQLNotSupported 65172 +#define DBConsts_SProviderExecuteNotSupported 65173 +#define DBConsts_SExprNoAggOnCalcs 65174 +#define DBConsts_SDataSetUnidirectional 65175 +#define DBConsts_SUnassignedVar 65176 +#define DBConsts_SRecordNotFound 65177 +#define DBConsts_SBcdOverflow 65178 +#define DBConsts_SInvalidBcdValue 65179 +#define DBConsts_SInvalidFormatType 65180 +#define DBConsts_SCouldNotParseTimeStamp 65181 +#define DBConsts_SInvalidSqlTimeStamp 65182 +#define bdeconst_SAutoSessionExclusive 65183 +#define DBConsts_SExprNoRParenOrComma 65184 +#define DBConsts_SExprExpected 65185 +#define DBConsts_SExprBadField 65186 +#define DBConsts_SExprBadNullTest 65187 +#define DBConsts_SExprRangeError 65188 +#define DBConsts_SExprIncorrect 65189 +#define DBConsts_SExprNothing 65190 +#define DBConsts_SExprTypeMis 65191 +#define DBConsts_SExprBadScope 65192 +#define DBConsts_SExprNoArith 65193 +#define DBConsts_SExprNotAgg 65194 +#define DBConsts_SExprBadConst 65195 +#define DBConsts_SExprNoAggFilter 65196 +#define DBConsts_SExprEmptyInList 65197 +#define DBConsts_SInvalidKeywordUse 65198 +#define DBConsts_STextFalse 65199 +#define DBConsts_SInvalidCalcType 65200 +#define DBConsts_SFieldReadOnly 65201 +#define DBConsts_SNotIndexField 65202 +#define DBConsts_SCircularDataLink 65203 +#define DBConsts_SLookupInfoError 65204 +#define DBConsts_SDataSourceChange 65205 +#define DBConsts_SDataSetOpen 65206 +#define DBConsts_SNotEditing 65207 +#define DBConsts_SDataSetClosed 65208 +#define DBConsts_SNestedDataSetClass 65209 +#define DBConsts_SExprTermination 65210 +#define DBConsts_SExprNameError 65211 +#define DBConsts_SExprStringError 65212 +#define DBConsts_SExprInvalidChar 65213 +#define DBConsts_SExprNoLParen 65214 +#define DBConsts_SExprNoRParen 65215 +#define DBConsts_SFieldNameMissing 65216 +#define DBConsts_SDuplicateFieldName 65217 +#define DBConsts_SFieldNotFound 65218 +#define DBConsts_SFieldAccessError 65219 +#define DBConsts_SFieldValueError 65220 +#define DBConsts_SFieldRangeError 65221 +#define DBConsts_SBcdFieldRangeError 65222 +#define DBConsts_SInvalidIntegerValue 65223 +#define DBConsts_SInvalidBoolValue 65224 +#define DBConsts_SInvalidFloatValue 65225 +#define DBConsts_SFieldTypeMismatch 65226 +#define DBConsts_SFieldSizeMismatch 65227 +#define DBConsts_SInvalidVarByteArray 65228 +#define DBConsts_SFieldOutOfRange 65229 +#define DBConsts_SFieldRequired 65230 +#define DBConsts_SDataSetMissing 65231 +#define ComConst_STooManyParams 65232 +#define ComConst_SDCOMNotInstalled 65233 +#define ComConst_SDAXError 65234 +#define ComConst_SAutomationWarning 65235 +#define ComConst_SNoCloseActiveServer1 65236 +#define ComConst_SNoCloseActiveServer2 65237 +#define OleConst_SCannotActivate 65238 +#define OleConst_SNoWindowHandle 65239 +#define OleConst_SOleError 65240 +#define OleConst_SVarNotObject 65241 +#define OleConst_SInvalidLicense 65242 +#define OleConst_SNotLicensed 65243 +#define OleConst_sNoRunningObject 65244 +#define DBConsts_SInvalidFieldSize 65245 +#define DBConsts_SInvalidFieldKind 65246 +#define DBConsts_SUnknownFieldType 65247 +#define ComStrs_sPageIndexError 65248 +#define ComStrs_sInvalidComCtl32 65249 +#define ComStrs_sDateTimeMax 65250 +#define ComStrs_sDateTimeMin 65251 +#define ComStrs_sFailSetCalDateTime 65252 +#define ComStrs_sFailSetCalMaxSelRange 65253 +#define ComStrs_sFailSetCalMinMaxRange 65254 +#define ComStrs_sFailsetCalSelRange 65255 +#define ComConst_SCreateRegKeyError 65256 +#define ComConst_SOleError 65257 +#define ComConst_SObjectFactoryMissing 65258 +#define ComConst_STypeInfoMissing 65259 +#define ComConst_SBadTypeInfo 65260 +#define ComConst_SDispIntfMissing 65261 +#define ComConst_SNoMethod 65262 +#define ComConst_SVarNotObject 65263 +#define HelpIntfs_hNoContext 65264 +#define HelpIntfs_hNoTopics 65265 +#define ComStrs_sTabFailClear 65266 +#define ComStrs_sTabFailDelete 65267 +#define ComStrs_sTabFailRetrieve 65268 +#define ComStrs_sTabFailGetObject 65269 +#define ComStrs_sTabFailSet 65270 +#define ComStrs_sTabFailSetObject 65271 +#define ComStrs_sTabMustBeMultiLine 65272 +#define ComStrs_sInvalidIndex 65273 +#define ComStrs_sInsertError 65274 +#define ComStrs_sInvalidOwner 65275 +#define ComStrs_sRichEditInsertError 65276 +#define ComStrs_sRichEditLoadFail 65277 +#define ComStrs_sRichEditSaveFail 65278 +#define ComStrs_sUDAssociated 65279 +#define Consts_SCannotOpenClipboard 65280 +#define Consts_SInvalidMemoSize 65281 +#define Consts_SInvalidPrinterOp 65282 +#define Consts_SNoDefaultPrinter 65283 +#define Consts_SDuplicateMenus 65284 +#define Consts_SCannotOpenAVI 65285 +#define Consts_SDockedCtlNeedsName 65286 +#define Consts_SDockTreeRemoveError 65287 +#define Consts_SDockZoneNotFound 65288 +#define Consts_SDockZoneHasNoCtl 65289 +#define Consts_SMultiSelectRequired 65290 +#define Consts_SSeparator 65291 +#define Consts_SErrorSettingCount 65292 +#define Consts_SListBoxMustBeVirtual 65293 +#define HelpIntfs_hNoTableOfContents 65294 +#define HelpIntfs_hNothingFound 65295 +#define Consts_SmkcPgDn 65296 +#define Consts_SmkcEnd 65297 +#define Consts_SmkcHome 65298 +#define Consts_SmkcLeft 65299 +#define Consts_SmkcUp 65300 +#define Consts_SmkcRight 65301 +#define Consts_SmkcDown 65302 +#define Consts_SmkcIns 65303 +#define Consts_SmkcDel 65304 +#define Consts_SmkcShift 65305 +#define Consts_SmkcCtrl 65306 +#define Consts_SmkcAlt 65307 +#define Consts_SOutOfRange 65308 +#define Consts_SInsertLineError 65309 +#define Consts_SInvalidClipFmt 65310 +#define Consts_SIconToClipboard 65311 +#define Consts_SMsgDlgNo 65312 +#define Consts_SMsgDlgOK 65313 +#define Consts_SMsgDlgCancel 65314 +#define Consts_SMsgDlgHelp 65315 +#define Consts_SMsgDlgAbort 65316 +#define Consts_SMsgDlgRetry 65317 +#define Consts_SMsgDlgIgnore 65318 +#define Consts_SMsgDlgAll 65319 +#define Consts_SMsgDlgNoToAll 65320 +#define Consts_SMsgDlgYesToAll 65321 +#define Consts_SmkcBkSp 65322 +#define Consts_SmkcTab 65323 +#define Consts_SmkcEsc 65324 +#define Consts_SmkcEnter 65325 +#define Consts_SmkcSpace 65326 +#define Consts_SmkcPgUp 65327 +#define Consts_SIgnoreButton 65328 +#define Consts_SRetryButton 65329 +#define Consts_SAbortButton 65330 +#define Consts_SAllButton 65331 +#define Consts_SCannotDragForm 65332 +#define Consts_SVMetafiles 65333 +#define Consts_SVEnhMetafiles 65334 +#define Consts_SVIcons 65335 +#define Consts_SVBitmaps 65336 +#define Consts_SMaskErr 65337 +#define Consts_SMaskEditErr 65338 +#define Consts_SMsgDlgWarning 65339 +#define Consts_SMsgDlgError 65340 +#define Consts_SMsgDlgInformation 65341 +#define Consts_SMsgDlgConfirm 65342 +#define Consts_SMsgDlgYes 65343 +#define Consts_SMenuReinserted 65344 +#define Consts_SMenuNotFound 65345 +#define Consts_SNoTimers 65346 +#define Consts_SNotPrinting 65347 +#define Consts_SPrinting 65348 +#define Consts_SInvalidPrinter 65349 +#define Consts_SDeviceOnPort 65350 +#define Consts_SGroupIndexTooLow 65351 +#define Consts_SNoMDIForm 65352 +#define Consts_SControlParentSetToSelf 65353 +#define Consts_SOKButton 65354 +#define Consts_SCancelButton 65355 +#define Consts_SYesButton 65356 +#define Consts_SNoButton 65357 +#define Consts_SHelpButton 65358 +#define Consts_SCloseButton 65359 +#define Consts_SInvalidImageList 65360 +#define Consts_SReplaceImage 65361 +#define Consts_SImageIndexError 65362 +#define Consts_SImageReadFail 65363 +#define Consts_SImageWriteFail 65364 +#define Consts_SWindowDCError 65365 +#define Consts_SWindowClass 65366 +#define Consts_SCannotFocus 65367 +#define Consts_SParentRequired 65368 +#define Consts_SParentGivenNotAParent 65369 +#define Consts_SMDIChildNotVisible 65370 +#define Consts_SVisibleChanged 65371 +#define Consts_SCannotShowModal 65372 +#define Consts_SScrollBarRange 65373 +#define Consts_SPropertyOutOfRange 65374 +#define Consts_SMenuIndexError 65375 +#define RTLConsts_SUnknownGroup 65376 +#define RTLConsts_SUnknownProperty 65377 +#define RTLConsts_SWriteError 65378 +#define RTLConsts_SThreadCreateError 65379 +#define RTLConsts_SThreadError 65380 +#define Consts_SInvalidTabPosition 65381 +#define Consts_SInvalidTabStyle 65382 +#define Consts_SInvalidBitmap 65383 +#define Consts_SInvalidIcon 65384 +#define Consts_SInvalidMetafile 65385 +#define Consts_SChangeIconSize 65386 +#define Consts_SOleGraphic 65387 +#define Consts_SUnknownClipboardFormat 65388 +#define Consts_SOutOfResources 65389 +#define Consts_SNoCanvasHandle 65390 +#define Consts_SInvalidImageSize 65391 +#define RTLConsts_SInvalidPropertyValue 65392 +#define RTLConsts_SInvalidRegType 65393 +#define RTLConsts_SInvalidStringGridOp 65394 +#define RTLConsts_SListCapacityError 65395 +#define RTLConsts_SListCountError 65396 +#define RTLConsts_SListIndexError 65397 +#define RTLConsts_SMemoryStreamError 65398 +#define RTLConsts_SPropertyException 65399 +#define RTLConsts_SReadError 65400 +#define RTLConsts_SReadOnlyProperty 65401 +#define RTLConsts_SRegGetDataFailed 65402 +#define RTLConsts_SRegSetDataFailed 65403 +#define RTLConsts_SResNotFound 65404 +#define RTLConsts_SSeekNotImplemented 65405 +#define RTLConsts_SSortedListError 65406 +#define RTLConsts_STooManyDeleted 65407 +#define RTLConsts_SDuplicateClass 65408 +#define RTLConsts_SDuplicateItem 65409 +#define RTLConsts_SDuplicateName 65410 +#define RTLConsts_SDuplicateString 65411 +#define RTLConsts_SFCreateError 65412 +#define RTLConsts_SFixedColTooBig 65413 +#define RTLConsts_SFixedRowTooBig 65414 +#define RTLConsts_SFOpenError 65415 +#define RTLConsts_SGridTooLarge 65416 +#define RTLConsts_SIndexOutOfRange 65417 +#define RTLConsts_SInvalidImage 65418 +#define RTLConsts_SInvalidName 65419 +#define RTLConsts_SInvalidProperty 65420 +#define RTLConsts_SInvalidPropertyElement 65421 +#define RTLConsts_SInvalidPropertyPath 65422 +#define RTLConsts_SInvalidPropertyType 65423 +#define SysConst_SShortDayNameThu 65424 +#define SysConst_SShortDayNameFri 65425 +#define SysConst_SShortDayNameSat 65426 +#define SysConst_SLongDayNameSun 65427 +#define SysConst_SLongDayNameMon 65428 +#define SysConst_SLongDayNameTue 65429 +#define SysConst_SLongDayNameWed 65430 +#define SysConst_SLongDayNameThu 65431 +#define SysConst_SLongDayNameFri 65432 +#define SysConst_SLongDayNameSat 65433 +#define RTLConsts_SAncestorNotFound 65434 +#define RTLConsts_SAssignError 65435 +#define RTLConsts_SBitsIndexError 65436 +#define RTLConsts_SCantWriteResourceStreamError 65437 +#define RTLConsts_SCheckSynchronizeError 65438 +#define RTLConsts_SClassNotFound 65439 +#define SysConst_SLongMonthNameJan 65440 +#define SysConst_SLongMonthNameFeb 65441 +#define SysConst_SLongMonthNameMar 65442 +#define SysConst_SLongMonthNameApr 65443 +#define SysConst_SLongMonthNameMay 65444 +#define SysConst_SLongMonthNameJun 65445 +#define SysConst_SLongMonthNameJul 65446 +#define SysConst_SLongMonthNameAug 65447 +#define SysConst_SLongMonthNameSep 65448 +#define SysConst_SLongMonthNameOct 65449 +#define SysConst_SLongMonthNameNov 65450 +#define SysConst_SLongMonthNameDec 65451 +#define SysConst_SShortDayNameSun 65452 +#define SysConst_SShortDayNameMon 65453 +#define SysConst_SShortDayNameTue 65454 +#define SysConst_SShortDayNameWed 65455 +#define SysConst_SModuleAccessViolation 65456 +#define SysConst_SOSError 65457 +#define SysConst_SUnkOSError 65458 +#define SysConst_SNL 65459 +#define SysConst_SShortMonthNameJan 65460 +#define SysConst_SShortMonthNameFeb 65461 +#define SysConst_SShortMonthNameMar 65462 +#define SysConst_SShortMonthNameApr 65463 +#define SysConst_SShortMonthNameMay 65464 +#define SysConst_SShortMonthNameJun 65465 +#define SysConst_SShortMonthNameJul 65466 +#define SysConst_SShortMonthNameAug 65467 +#define SysConst_SShortMonthNameSep 65468 +#define SysConst_SShortMonthNameOct 65469 +#define SysConst_SShortMonthNameNov 65470 +#define SysConst_SShortMonthNameDec 65471 +#define SysConst_SVarTypeNotUsable 65472 +#define SysConst_SVarTypeTooManyCustom 65473 +#define SysConst_SInvalidVarNullOp 65474 +#define SysConst_SVarTypeCouldNotConvert 65475 +#define SysConst_SVarTypeConvertOverflow 65476 +#define SysConst_SVarOverflow 65477 +#define SysConst_SVarInvalid 65478 +#define SysConst_SVarBadType 65479 +#define SysConst_SVarNotImplemented 65480 +#define SysConst_SVarUnexpected 65481 +#define SysConst_SExternalException 65482 +#define SysConst_SAssertionFailed 65483 +#define SysConst_SIntfCastError 65484 +#define SysConst_SSafecallException 65485 +#define SysConst_SAssertError 65486 +#define SysConst_SAbstractError 65487 +#define SysConst_SExceptTitle 65488 +#define SysConst_SInvalidFormat 65489 +#define SysConst_SArgumentMissing 65490 +#define SysConst_SDispatchError 65491 +#define SysConst_SReadAccess 65492 +#define SysConst_SWriteAccess 65493 +#define SysConst_SFormatTooLong 65494 +#define SysConst_SVarArrayCreate 65495 +#define SysConst_SVarArrayBounds 65496 +#define SysConst_SVarArrayLocked 65497 +#define SysConst_SInvalidVarCast 65498 +#define SysConst_SInvalidVarOp 65499 +#define SysConst_SInvalidVarOpWithHResult 65500 +#define SysConst_SVarNotArray 65501 +#define SysConst_SVarTypeOutOfRange 65502 +#define SysConst_SVarTypeAlreadyUsed 65503 +#define SysConst_SInvalidInput 65504 +#define SysConst_SDivByZero 65505 +#define SysConst_SRangeError 65506 +#define SysConst_SIntOverflow 65507 +#define SysConst_SInvalidOp 65508 +#define SysConst_SZeroDivide 65509 +#define SysConst_SOverflow 65510 +#define SysConst_SUnderflow 65511 +#define SysConst_SInvalidPointer 65512 +#define SysConst_SInvalidCast 65513 +#define SysConst_SAccessViolation 65514 +#define SysConst_SStackOverflow 65515 +#define SysConst_SControlC 65516 +#define SysConst_SPrivilege 65517 +#define SysConst_SOperationAborted 65518 +#define SysConst_SException 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 +#define SysConst_SInvalidDate 65522 +#define SysConst_SInvalidTime 65523 +#define SysConst_SInvalidDateTime 65524 +#define SysConst_SInvalidTimeStamp 65525 +#define SysConst_STimeEncodeError 65526 +#define SysConst_SDateEncodeError 65527 +#define SysConst_SOutOfMemory 65528 +#define SysConst_SInOutError 65529 +#define SysConst_SFileNotFound 65530 +#define SysConst_SInvalidFilename 65531 +#define SysConst_STooManyOpenFiles 65532 +#define SysConst_SAccessDenied 65533 +#define SysConst_SEndOfFile 65534 +#define SysConst_SDiskFull 65535 STRINGTABLE BEGIN - VDBConsts_SRefreshRecord, "Refresh data" - VDBConsts_SRemoteLogin, "Remote Login" - 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" + TeeConst_TeeMsg_ValuesGanttStart, "Start" + TeeConst_TeeMsg_ValuesGanttEnd, "End" + TeeConst_TeeMsg_ValuesGanttNextTask, "NextTask" + TeeConst_TeeMsg_ValuesArrowEndX, "EndX" + TeeConst_TeeMsg_ValuesArrowEndY, "EndY" VDBConsts_SFirstRecord, "First record" VDBConsts_SPriorRecord, "Prior record" @@ -399,4 +505,8 @@ VDBConsts_SPostEdit, "Post edit" VDBConsts_SCancelEdit, "Cancel edit" + VDBConsts_SRefreshRecord, "Refresh data" + VDBConsts_SRemoteLogin, "Remote Login" + TeeConst_TeeMsg_FunctionAdd, "Add" + TeeConst_TeeMsg_FunctionSubtract, "Subtract" TeeConst_TeeMsg_FunctionMultiply, "Multiply" TeeConst_TeeMsg_FunctionDivide, "Divide" @@ -413,6 +523,26 @@ TeeConst_TeeMsg_ValuesBar, "Bar" TeeConst_TeeMsg_ValuesAngle, "Angle" - OleConst_SCannotActivate, "OLE control activation failed" - OleConst_SNoWindowHandle, "Could not obtain OLE control window handle" + TeeConst_TeeMsg_PieSample8, "Chairs" + TeeConst_TeeMsg_GalleryStandard, "Standard" + TeeConst_TeeMsg_GalleryFunctions, "Functions" + 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_AxisLabels, "Axis Labels" + TeeConst_TeeMsg_GalleryLine, "Line" + TeeConst_TeeMsg_GalleryPoint, "Point" + TeeConst_TeeMsg_GalleryArea, "Area" + TeeConst_TeeMsg_GalleryBar, "Bar" + TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar" TeeConst_TeeMsg_GalleryPie, "Pie" TeeConst_TeeMsg_GalleryFastLine, "Fast Line" @@ -425,10 +555,10 @@ TeeConst_TeeMsg_PieSample6, "Keyboards" TeeConst_TeeMsg_PieSample7, "Bikes" - TeeConst_TeeMsg_PieSample8, "Chairs" - TeeConst_TeeMsg_GalleryStandard, "Standard" - TeeConst_TeeMsg_GalleryFunctions, "Functions" - TeeConst_TeeMsg_DefaultFontSize, "8" - TeeConst_TeeMsg_FunctionAdd, "Add" - TeeConst_TeeMsg_FunctionSubtract, "Subtract" + 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" + 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" @@ -441,13 +571,13 @@ TeeConst_TeeMsg_DefValueFormat, "#,##0.###" TeeConst_TeeMsg_AxisTitle, "Axis Title" - TeeConst_TeeMsg_AxisLabels, "Axis Labels" - TeeConst_TeeMsg_GalleryLine, "Line" - TeeConst_TeeMsg_GalleryPoint, "Point" - TeeConst_TeeMsg_GalleryArea, "Area" - TeeConst_TeeMsg_GalleryBar, "Bar" - TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar" - 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?" + bdeconst_SInitError, "An error occurred while attempting to initialize the Borland Database Engine (error $%.4x)" + bdeconst_SIDAPILangID, "0009" + bdeconst_SBDEError, "BDE error $%.4x" + bdeconst_SNoDataSetField, "Missing DataSetField property" + bdeconst_SNoCachedUpdates, "Not in cached update mode" + bdeconst_SNoFieldAccess, "Cannot access field '%s' in a filter" + bdeconst_SUntitled, "Untitled Application" + bdeconst_SUpdateFailed, "Update failed" + bdeconst_SLocalTransDirty, "The transaction isolation level must be dirty read for local databases" TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %" TeeConst_TeeMsg_LegendFirstValue, "First Legend Value must be > 0" @@ -457,10 +587,103 @@ 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" - 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" + bdeconst_SAutoSessionExists, "Cannot add a session to the form or data-module while session '%s' has AutoSessionName enabled" + bdeconst_SAutoSessionActive, "Cannot modify SessionName while AutoSessionName is enabled" + bdeconst_SDuplicateDatabaseName, "Duplicate database name '%s'" + bdeconst_SDuplicateSessionName, "Duplicate session name '%s'" + bdeconst_SInvalidSessionName, "Invalid session name %s" + bdeconst_SDatabaseNameMissing, "Database name missing" + bdeconst_SSessionNameMissing, "Session name missing" + bdeconst_SDatabaseOpen, "Cannot perform this operation on an open database" + bdeconst_SDatabaseClosed, "Cannot perform this operation on a closed database" + bdeconst_SDatabaseHandleSet, "Database handle owned by a different session" + bdeconst_SSessionActive, "Cannot perform this operation on an active session" + bdeconst_SHandleError, "Error creating cursor handle" + bdeconst_SNoReferenceTableName, "ReferenceTableName not specified for field '%s'" + bdeconst_SEmptySQLStatement, "No SQL statement available" + bdeconst_SNoParameterValue, "No value for parameter '%s'" + bdeconst_SLoginError, "Cannot connect to database '%s'" + DBConsts_STextTrue, "True" + DBConsts_SParameterNotFound, "Parameter '%s' not found" + DBConsts_SInvalidVersion, "Unable to load bind parameters" + DBConsts_SBadFieldType, "Field '%s' is of an unsupported type" + DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" + DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" + DBConsts_SExprNoAggOnCalcs, "Field '%s' is not the correct type of calculated field to be used in an aggregate, use an internalcalc" + DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" + DBConsts_SUnassignedVar, "Unassigned variant value" + DBConsts_SRecordNotFound, "Record not found" + DBConsts_SBcdOverflow, "BCD overflow" + DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" + DBConsts_SInvalidFormatType, "Invalid format type for BCD" + DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" + DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" + bdeconst_SAutoSessionExclusive, "Cannot enable AutoSessionName property with more than one session on a form or data-module" + DBConsts_SExprNoRParenOrComma, "')' or ',' expected but %s found" + DBConsts_SExprExpected, "Expression expected but %s found" + DBConsts_SExprBadField, "Field '%s' cannot be used in a filter expression" + DBConsts_SExprBadNullTest, "NULL only allowed with '=' and '<>'" + DBConsts_SExprRangeError, "Constant out of range" + DBConsts_SExprIncorrect, "Incorrectly formed filter expression" + DBConsts_SExprNothing, "nothing" + DBConsts_SExprTypeMis, "Type mismatch in expression" + DBConsts_SExprBadScope, "Operation cannot mix aggregate value with record-varying value" + DBConsts_SExprNoArith, "Arithmetic in filter expressions not supported" + DBConsts_SExprNotAgg, "Expression is not an aggregate expression" + DBConsts_SExprBadConst, "Constant is not correct type %s" + DBConsts_SExprNoAggFilter, "Aggregate expressions not allowed in filters" + DBConsts_SExprEmptyInList, "IN predicate list may not be empty" + DBConsts_SInvalidKeywordUse, "Invalid use of keyword" + DBConsts_STextFalse, "False" + DBConsts_SInvalidCalcType, "Field '%s' cannot be a calculated or lookup field" + DBConsts_SFieldReadOnly, "Field '%s' cannot be modified" + DBConsts_SNotIndexField, "Field '%s' is not indexed and cannot be modified" + DBConsts_SCircularDataLink, "Circular datalinks are not allowed" + DBConsts_SLookupInfoError, "Lookup information for field '%s' is incomplete" + DBConsts_SDataSourceChange, "DataSource cannot be changed" + DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" + DBConsts_SNotEditing, "Dataset not in edit or insert mode" + DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" + DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" + DBConsts_SExprTermination, "Filter expression incorrectly terminated" + DBConsts_SExprNameError, "Unterminated field name" + DBConsts_SExprStringError, "Unterminated string constant" + DBConsts_SExprInvalidChar, "Invalid filter expression character: '%s'" + DBConsts_SExprNoLParen, "'(' expected but %s found" + DBConsts_SExprNoRParen, "')' expected but %s found" + DBConsts_SFieldNameMissing, "Field name missing" + DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" + DBConsts_SFieldNotFound, "Field '%s' not found" + DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" + DBConsts_SFieldValueError, "Invalid value for field '%s'" + DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" + DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" + DBConsts_SInvalidIntegerValue, "'%s' is not a valid integer value for field '%s'" + DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" + DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" + DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" + DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" + DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" + DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" + DBConsts_SFieldRequired, "Field '%s' must have a value" + DBConsts_SDataSetMissing, "Field '%s' has no dataset" + 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?" + OleConst_SCannotActivate, "OLE control activation failed" + OleConst_SNoWindowHandle, "Could not obtain OLE control window handle" + OleConst_SOleError, "OLE error %.8x" + OleConst_SVarNotObject, "Variant does not reference an OLE object" + 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_SInvalidFieldSize, "Invalid field size" + DBConsts_SInvalidFieldKind, "Invalid FieldKind" + DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" + 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" ComStrs_sDateTimeMin, "Date is less than minimum of %s" ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time" @@ -476,7 +699,7 @@ 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" + HelpIntfs_hNoContext, "No context-sensitive help installed" + HelpIntfs_hNoTopics, "No topic-based help system installed" + ComStrs_sTabFailClear, "Failed to clear tab control" ComStrs_sTabFailDelete, "Failed to delete tab at index %d" ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d" @@ -492,7 +715,7 @@ 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" + Consts_SCannotOpenClipboard, "Cannot open clipboard" + Consts_SInvalidMemoSize, "Text exceeds memo capacity" + Consts_SInvalidPrinterOp, "Operation not supported on selected printer" Consts_SNoDefaultPrinter, "There is no default printer currently selected" Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" @@ -508,7 +731,7 @@ 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" - ComStrs_sTabFailClear, "Failed to clear tab control" + Consts_SmkcPgDn, "PgDn" + Consts_SmkcEnd, "End" + Consts_SmkcHome, "Home" Consts_SmkcLeft, "Left" Consts_SmkcUp, "Up" @@ -524,7 +747,7 @@ 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_SMsgDlgNo, "&No" + Consts_SMsgDlgOK, "OK" + Consts_SMsgDlgCancel, "Cancel" Consts_SMsgDlgHelp, "&Help" Consts_SMsgDlgAbort, "&Abort" @@ -540,7 +763,7 @@ Consts_SmkcSpace, "Space" Consts_SmkcPgUp, "PgUp" - Consts_SmkcPgDn, "PgDn" - Consts_SmkcEnd, "End" - Consts_SmkcHome, "Home" + Consts_SIgnoreButton, "&Ignore" + Consts_SRetryButton, "&Retry" + Consts_SAbortButton, "Abort" Consts_SAllButton, "&All" Consts_SCannotDragForm, "Cannot drag a form" @@ -556,7 +779,7 @@ Consts_SMsgDlgConfirm, "Confirm" Consts_SMsgDlgYes, "&Yes" - Consts_SMsgDlgNo, "&No" - Consts_SMsgDlgOK, "OK" - Consts_SMsgDlgCancel, "Cancel" + Consts_SMenuReinserted, "Menu inserted twice" + Consts_SMenuNotFound, "Sub-menu is not in menu" + Consts_SNoTimers, "Not enough timers available" Consts_SNotPrinting, "Printer is not currently printing" Consts_SPrinting, "Printing in progress" @@ -572,7 +795,7 @@ Consts_SHelpButton, "&Help" Consts_SCloseButton, "&Close" - Consts_SIgnoreButton, "&Ignore" - Consts_SRetryButton, "&Retry" - Consts_SAbortButton, "Abort" + Consts_SInvalidImageList, "Invalid ImageList" + Consts_SReplaceImage, "Unable to Replace Image" + Consts_SImageIndexError, "Invalid ImageList Index" Consts_SImageReadFail, "Failed to read ImageList data from stream" Consts_SImageWriteFail, "Failed to write ImageList data to stream" @@ -588,7 +811,7 @@ 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_SUnknownGroup, "%s not in a class registration group" + RTLConsts_SUnknownProperty, "Property %s does not exist" + RTLConsts_SWriteError, "Stream write error" RTLConsts_SThreadCreateError, "Thread creation error: %s" RTLConsts_SThreadError, "Thread Error: %s (%d)" @@ -604,7 +827,7 @@ 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_SInvalidPropertyValue, "Invalid property value" + RTLConsts_SInvalidRegType, "Invalid data type for '%s'" + RTLConsts_SInvalidStringGridOp, "Cannot insert or delete rows from grid" RTLConsts_SListCapacityError, "List capacity out of bounds (%d)" RTLConsts_SListCountError, "List count out of bounds (%d)" @@ -620,7 +843,7 @@ 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_SDuplicateClass, "A class named %s already exists" + RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" + RTLConsts_SDuplicateName, "A component named %s already exists" RTLConsts_SDuplicateString, "String list does not allow duplicates" RTLConsts_SFCreateError, "Cannot create file %s" @@ -636,7 +859,7 @@ 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_SShortDayNameThu, "Thu" + SysConst_SShortDayNameFri, "Fri" + SysConst_SShortDayNameSat, "Sat" SysConst_SLongDayNameSun, "Sunday" SysConst_SLongDayNameMon, "Monday" @@ -652,7 +875,7 @@ 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_SLongMonthNameJan, "January" + SysConst_SLongMonthNameFeb, "February" + SysConst_SLongMonthNameMar, "March" SysConst_SLongMonthNameApr, "April" SysConst_SLongMonthNameMay, "May" @@ -668,8 +891,8 @@ SysConst_SShortDayNameTue, "Tue" SysConst_SShortDayNameWed, "Wed" - SysConst_SShortDayNameThu, "Thu" - SysConst_SShortDayNameFri, "Fri" - SysConst_SShortDayNameSat, "Sat" + SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" + SysConst_SOSError, "System Error. Code: %d.\r\n%s" SysConst_SUnkOSError, "A call to an OS function failed" + SysConst_SNL, "Application is not licensed to use this feature" SysConst_SShortMonthNameJan, "Jan" SysConst_SShortMonthNameFeb, "Feb" @@ -684,7 +907,6 @@ SysConst_SShortMonthNameNov, "Nov" SysConst_SShortMonthNameDec, "Dec" - SysConst_SLongMonthNameJan, "January" - SysConst_SLongMonthNameFeb, "February" - SysConst_SLongMonthNameMar, "March" + SysConst_SVarTypeNotUsable, "Custom variant type (%.4x) is not usable" + SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" @@ -701,6 +923,6 @@ 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_SExceptTitle, "Application Error" + SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" SysConst_SArgumentMissing, "No argument for format '%s'" SysConst_SDispatchError, "Variant method calls not supported" @@ -717,6 +939,6 @@ SysConst_SVarTypeOutOfRange, "Custom variant type (%.4x) is out of range" SysConst_SVarTypeAlreadyUsed, "Custom variant type (%.4x) already used by %s" - SysConst_SVarTypeNotUsable, "Custom variant type (%.4x) is not usable" - SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" + SysConst_SInvalidInput, "Invalid numeric input" + SysConst_SDivByZero, "Division by zero" SysConst_SRangeError, "Range check error" SysConst_SIntOverflow, "Integer overflow" @@ -733,10 +955,10 @@ SysConst_SOperationAborted, "Operation aborted" SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" - SysConst_SExceptTitle, "Application Error" - SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" SysConst_SInvalidInteger, "'%s' is not a valid integer value" SysConst_SInvalidFloat, "'%s' is not a valid floating point value" + SysConst_SInvalidDate, "'%s' is not a valid date" SysConst_SInvalidTime, "'%s' is not a valid time" SysConst_SInvalidDateTime, "'%s' is not a valid date and time" + SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" SysConst_STimeEncodeError, "Invalid argument to time encode" SysConst_SDateEncodeError, "Invalid argument to date encode" @@ -749,6 +971,4 @@ SysConst_SEndOfFile, "Read beyond end of file" SysConst_SDiskFull, "Disk full" - SysConst_SInvalidInput, "Invalid numeric input" - SysConst_SDivByZero, "Division by zero" END Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/FormResize.txt =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/FormResize.txt (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/FormResize.txt (revision 460) @@ -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; Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm (revision 460) @@ -107,4 +107,5 @@ TabOrder = 3 OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 end object cboUrgency: TORComboBox @@ -129,4 +130,5 @@ SynonymChars = '<>' TabOrder = 2 + CharsNeedMatch = 1 end object treService: TORTreeView @@ -167,4 +169,5 @@ OnKeyPause = cboServiceSelect OnMouseClick = cboServiceSelect + CharsNeedMatch = 1 end end @@ -352,4 +355,5 @@ TabStop = True OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 end end Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas (revision 460) @@ -465,5 +465,5 @@ FUrgency := cboUrgency.ItemIEN ; if (FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE) then - FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],1,1); + FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],2,1); LimitEditWidth(memComments, 74); FComments := memComments.Lines ; Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm (revision 460) @@ -1,6 +1,6 @@ inherited frmConsults: TfrmConsults - Left = 327 - Top = 169 - Width = 660 + Left = 247 + Top = 174 + Width = 723 Height = 467 HelpContext = 6000 @@ -15,5 +15,5 @@ inherited shpPageBottom: TShape Top = 416 - Width = 652 + Width = 715 end inherited sptHorz: TSplitter @@ -25,5 +25,5 @@ inherited pnlRight: TPanel [2] Left = 85 - Width = 567 + Width = 630 Height = 416 OnResize = pnlRightResize @@ -31,5 +31,5 @@ Left = 0 Top = 350 - Width = 567 + Width = 630 Height = 4 Cursor = crVSplit @@ -39,5 +39,5 @@ Left = 0 Top = 0 - Width = 567 + Width = 630 Height = 350 Align = alClient @@ -48,5 +48,5 @@ Left = 0 Top = 0 - Width = 567 + Width = 630 Height = 19 Align = alTop @@ -68,5 +68,5 @@ Left = 0 Top = 19 - Width = 567 + Width = 630 Height = 331 Align = alClient @@ -97,5 +97,5 @@ Left = 0 Top = 354 - Width = 567 + Width = 630 Height = 62 Align = alBottom @@ -107,5 +107,5 @@ Left = 0 Top = 0 - Width = 567 + Width = 630 Height = 350 Align = alClient @@ -117,5 +117,5 @@ Left = 0 Top = 67 - Width = 567 + Width = 630 Height = 283 Align = alClient @@ -137,5 +137,5 @@ Left = 0 Top = 0 - Width = 567 + Width = 630 Height = 67 Align = alTop @@ -144,5 +144,5 @@ OnResize = pnlFieldsResize DesignSize = ( - 567 + 630 67) object bvlNewTitle: TBevel @@ -166,5 +166,5 @@ end object lblAuthor: TStaticText - Left = 339 + Left = 402 Top = 6 Width = 152 @@ -189,5 +189,5 @@ end object lblCosigner: TStaticText - Left = 244 + Left = 307 Top = 21 Width = 243 @@ -232,5 +232,5 @@ end object cmdChange: TButton - Left = 493 + Left = 556 Top = 6 Width = 58 @@ -245,5 +245,5 @@ Left = 48 Top = 40 - Width = 503 + Width = 566 Height = 21 Hint = 'Subject is limited to a maximum of 80 characters.' @@ -435,5 +435,4 @@ Height = 142 Align = alClient - Color = clWhite HideSelection = False Indent = 15 @@ -675,4 +674,54 @@ 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 = '-' Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.pas (revision 460) @@ -162,4 +162,14 @@ 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); @@ -267,4 +277,6 @@ 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 @@ -296,5 +308,5 @@ procedure frmDrawerPnlEncounterButtonExit(Sender: TObject); procedure frmDrawerEdtSearchExit(Sender: TObject); - procedure DoAutoSave; + procedure DoAutoSave(Suppress: integer = 1); function GetTitleText(AnIndex: Integer): string; //function MakeTitleText(IsAddendum: Boolean = False): string; @@ -870,9 +882,5 @@ lstNotesClick(Self); // will make pnlWrite visible if timAutoSave.Interval <> 0 then EnableAutosave := TRUE; - - if txtSubject.Visible then - txtSubject.SetFocus - else - memResults.SetFocus; + if txtSubject.Visible then txtSubject.SetFocus else memResults.SetFocus; end else // CreatedNote.ErrorText <> '' @@ -947,5 +955,6 @@ else HaveRequired := True; // lock the consult request if there is a consult - if FEditNote.PkgIEN > 0 then HaveRequired := LockConsultRequest(FEditNote.PkgIEN); + if HaveRequired and (FEditNote.PkgIEN > 0) then + HaveRequired := LockConsultRequest(FEditNote.PkgIEN); if HaveRequired then begin @@ -1529,5 +1538,5 @@ CompleteConsult(IS_ID_CHILD, 0, UseClinProcTitles); end - else if NoteIEN = -1 then Exit; + else if NoteIEN = -1 then Exit end; @@ -2003,8 +2012,11 @@ 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} - SignSts: TActionRec; + ActionSts, SignSts: TActionRec; APCEObject: TPCEData; OK: boolean; @@ -2012,4 +2024,5 @@ tmpNode: TORTreeNode; ErrMsg: string; + ActionType, SignTitle: string; begin AnIndex := -1; @@ -2039,15 +2052,20 @@ if Length(ESCode) > 0 then begin -(* if LacksClinProcFieldsForSignature(IEN, ErrMsg) then - begin - InfoBox(ErrMsg, TC_CLIN_PROC, MB_OK); - ContinueSign := False; - end - else ContinueSign := True; - if not LastSaveClean(IEN) and - (InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2) <> IDYES) - then ContinueSign := False; - //else ContinueSign := True;*) - if LacksClinProcFieldsForSignature(IEN, ErrMsg) then + 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); @@ -2063,5 +2081,4 @@ then ContinueSign := False else ContinueSign := True; - if ContinueSign then begin @@ -2753,9 +2770,11 @@ begin inherited; - DoAutoSave; + DoAutoSave(0); timAutoSave.Enabled := False; try SpellCheckForControl(memResults); finally + FChanged := True; + DoAutoSave(0); timAutoSave.Enabled := True; end; @@ -2765,9 +2784,11 @@ begin inherited; - DoAutoSave; + DoAutoSave(0); timAutoSave.Enabled := False; try GrammarCheckForControl(memResults); finally + FChanged := True; + DoAutoSave(0); timAutoSave.Enabled := True; end; @@ -2985,4 +3006,5 @@ SigAction: integer; SavedDocID, SavedCsltID: string; + ARefDate: TFMDateTime; begin inherited; @@ -3017,7 +3039,11 @@ end; - if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit; - Exclusions := GetCurrentSigners(lstNotes.ItemIEN); - SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_CONSULTS); + 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 @@ -3556,5 +3582,5 @@ begin if Title > 0 then CurTitle := Title else CurTitle := DocType; - if AskCosignerForTitle(CurTitle, Author) and (Cosigner <= 0) then Result := True; + if AskCosignerForTitle(CurTitle, Author, DateTime) and (Cosigner <= 0) then Result := True; end; end; @@ -3572,5 +3598,5 @@ ErrMsg := TX_NO_AUTHOR; end; - if AskCosignerForTitle(Title, Author) and (Cosigner = 0) then + if AskCosignerForTitle(Title, Author, DateTime) and (Cosigner = 0) then begin Result := True; @@ -3665,5 +3691,5 @@ end; -procedure TfrmConsults.DoAutoSave; +procedure TfrmConsults.DoAutoSave(Suppress: integer = 1); var ErrMsg: string; @@ -3672,8 +3698,8 @@ begin StatusText('Autosaving note...'); - //PutTextOnly(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex)); + //PutTextOnly(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex)); timAutoSave.Enabled := False; try - SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex),1); + SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex), Suppress); finally timAutoSave.Enabled := True; @@ -4682,6 +4708,11 @@ (Screen.ActiveControl = txtSubject) or (Screen.ActiveControl = memResults) then - //frmFrame.pnlPatient.SetFocus //COMMENTED OUT FOR CQ6498 - memResults.SetFocus //ADDED THIS LINE FOR CQ6498 + 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 @@ -4729,5 +4760,6 @@ {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!} - frmDrawers.Hide; + 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.} @@ -4768,4 +4800,24 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm (revision 460) @@ -1,6 +1,6 @@ object frmEditCslt: TfrmEditCslt Tag = 110 - Left = 119 - Top = 94 + Left = 409 + Top = 225 Width = 569 Height = 367 @@ -174,4 +174,5 @@ SynonymChars = '<>' TabOrder = 0 + CharsNeedMatch = 1 end object cboUrgency: TORComboBox @@ -197,4 +198,5 @@ TabOrder = 1 OnChange = ControlChange + CharsNeedMatch = 1 end object radInpatient: TRadioButton @@ -239,4 +241,5 @@ TabOrder = 7 OnChange = ControlChange + CharsNeedMatch = 1 end object txtProvDiag: TCaptionEdit @@ -246,4 +249,5 @@ Height = 21 Anchors = [akLeft, akTop, akRight] + MaxLength = 180 ParentShowHint = False PopupMenu = mnuPopProvDx @@ -277,4 +281,5 @@ OnChange = ControlChange OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 end object cboCategory: TORComboBox @@ -298,4 +303,5 @@ TabOrder = 14 Visible = False + CharsNeedMatch = 1 end object cmdAccept: TButton Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditProc.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditProc.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditProc.dfm (revision 460) @@ -18,6 +18,6 @@ Position = poScreenCenter DesignSize = ( - 545 - 289) + 561 + 308) PixelsPerInch = 96 TextHeight = 13 @@ -166,4 +166,5 @@ TabOrder = 2 OnChange = ControlChange + CharsNeedMatch = 1 end object radInpatient: TRadioButton @@ -208,4 +209,5 @@ TabOrder = 6 OnChange = ControlChange + CharsNeedMatch = 1 end object txtProvDiag: TCaptionEdit @@ -215,4 +217,5 @@ Height = 21 Anchors = [akLeft, akTop, akRight] + MaxLength = 180 ParentShowHint = False PopupMenu = mnuPopProvDx @@ -246,4 +249,5 @@ OnChange = ControlChange OnNeedData = txtAttnNeedData + CharsNeedMatch = 1 end object cboProc: TORComboBox @@ -277,4 +281,5 @@ OnChange = cboProcSelect OnNeedData = cboProcNeedData + CharsNeedMatch = 1 end object cboCategory: TORComboBox @@ -299,4 +304,5 @@ Visible = False OnChange = ControlChange + CharsNeedMatch = 1 end object cboService: TORComboBox @@ -329,4 +335,5 @@ TabOrder = 1 OnChange = ControlChange + CharsNeedMatch = 1 end object memComment: TRichEdit Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm (revision 460) @@ -1,14 +1,13 @@ inherited frmODCslt: TfrmODCslt Tag = 110 - Left = 377 - Top = 11 - Width = 536 - Height = 321 - HorzScrollBar.Range = 528 - HorzScrollBar.Visible = True - VertScrollBar.Range = 294 - VertScrollBar.Visible = True - AutoScroll = False + 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 @@ -23,8 +22,8 @@ object pnlReason: TPanel [1] Left = 3 - Top = 117 - Width = 516 - Height = 132 - Anchors = [akLeft, akTop, akRight, akBottom] + Top = 154 + Width = 585 + Height = 135 + Anchors = [akLeft, akTop, akRight] BevelOuter = bvNone TabOrder = 11 @@ -32,5 +31,5 @@ Left = 0 Top = 0 - Width = 516 + Width = 585 Height = 13 Align = alTop @@ -40,6 +39,6 @@ Left = 0 Top = 13 - Width = 516 - Height = 119 + Width = 585 + Height = 122 Align = alClient Font.Charset = ANSI_CHARSET @@ -48,4 +47,5 @@ Font.Name = 'Courier New' Font.Style = [] + Constraints.MinHeight = 40 ParentFont = False PopupMenu = popReason @@ -61,5 +61,5 @@ end object lblUrgency: TStaticText [2] - Left = 239 + Left = 309 Top = 2 Width = 44 @@ -70,5 +70,5 @@ end object lblPlace: TStaticText [3] - Left = 384 + Left = 454 Top = 43 Width = 104 @@ -79,5 +79,5 @@ end object lblAttn: TStaticText [4] - Left = 384 + Left = 454 Top = 2 Width = 46 @@ -88,5 +88,5 @@ end object lblProvDiag: TStaticText [5] - Left = 239 + Left = 309 Top = 81 Width = 104 @@ -98,8 +98,7 @@ inherited memOrder: TCaptionMemo Left = 3 - Top = 255 - Width = 347 - Height = 36 - Anchors = [akLeft, akRight, akBottom] + Top = 305 + Width = 417 + Height = 41 Lines.Strings = ( 'The order text...' @@ -110,24 +109,22 @@ end inherited cmdAccept: TButton - Left = 357 - Top = 265 - Anchors = [akRight, akBottom] + Left = 427 + Top = 315 TabOrder = 12 end inherited cmdQuit: TButton - Left = 453 - Top = 265 + Left = 531 + Top = 315 Width = 61 - Anchors = [akRight, akBottom] TabOrder = 13 end inherited pnlMessage: TPanel - Left = 61 - Top = 245 - Width = 277 + Left = 13 + Top = 295 + Width = 377 Anchors = [akLeft, akRight, akBottom] TabOrder = 14 inherited memMessage: TRichEdit - Width = 227 + Width = 292 end end @@ -135,6 +132,6 @@ Left = 0 Top = 16 - Width = 204 - Height = 73 + Width = 274 + Height = 113 Anchors = [akLeft, akTop, akRight] Style = orcsSimple @@ -156,4 +153,5 @@ OnChange = ControlChange OnClick = cboServiceSelect + OnExit = cboServiceExit OnKeyDown = cboServiceKeyDown OnKeyUp = cboServiceKeyUp @@ -161,5 +159,5 @@ end object cboUrgency: TORComboBox - Left = 239 + Left = 309 Top = 16 Width = 133 @@ -187,5 +185,5 @@ end object cboPlace: TORComboBox - Left = 384 + Left = 454 Top = 56 Width = 136 @@ -212,9 +210,10 @@ end object txtProvDiag: TCaptionEdit - Left = 239 + Left = 309 Top = 94 Width = 231 Height = 21 Anchors = [akTop, akRight] + MaxLength = 180 ParentShowHint = False PopupMenu = mnuPopProvDx @@ -225,5 +224,5 @@ end object txtAttn: TORComboBox - Left = 384 + Left = 454 Top = 16 Width = 136 @@ -252,7 +251,7 @@ object treService: TORTreeView Left = 0 - Top = 37 - Width = 228 - Height = 201 + Top = 38 + Width = 298 + Height = 220 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET @@ -299,12 +298,19 @@ end object pnlServiceTreeButton: TKeyClickPanel - Left = 204 + Left = 274 Top = 14 - Width = 25 - Height = 24 + 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 @@ -313,7 +319,7 @@ OnExit = pnlServiceTreeButtonExit object btnServiceTree: TSpeedButton - Left = 1 - Top = 1 - Width = 23 + Left = 2 + Top = 2 + Width = 22 Height = 22 Glyph.Data = { @@ -360,12 +366,13 @@ FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF FFFFFFFFFFFFFFFFFFFF} + Margin = 0 OnClick = btnServiceTreeClick end end object cmdLexSearch: TButton - Left = 473 - Top = 96 + Left = 543 + Top = 94 Width = 49 - Height = 17 + Height = 21 Anchors = [akTop, akRight] Caption = 'Lexicon' @@ -374,5 +381,5 @@ end object gbInptOpt: TGroupBox - Left = 239 + Left = 309 Top = 35 Width = 140 @@ -401,7 +408,7 @@ end object btnDiagnosis: TButton - Left = 473 + Left = 543 Top = 95 - Width = 52 + Width = 49 Height = 20 Anchors = [akTop, akRight] @@ -421,5 +428,5 @@ OnPopup = popReasonPopup Left = 411 - Top = 169 + Top = 188 object popReasonCut: TMenuItem Caption = 'Cu&t' Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas (revision 460) @@ -85,4 +85,5 @@ procedure btnDiagnosisClick(Sender: TObject); procedure cmdQuitClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private @@ -97,5 +98,5 @@ procedure SetupReasonForRequest(OrderAction: integer); procedure GetProvDxandValidateCode(AResponses: TResponses); - function ShowPrerequisites: boolean; + function ShowPrerequisites: boolean; procedure DoSetFontSize(FontSize: integer); procedure SetUpQuickOrderDX; @@ -106,4 +107,5 @@ procedure Validate(var AnErrMsg: string); override; function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings; + public procedure SetupDialog(OrderAction: Integer; const ID: string); override; @@ -123,5 +125,5 @@ uses rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, fPreReq, - ORClasses, clipbrd, uTemplates; + ORClasses, clipbrd, uTemplates, fFrame, uODBase; var @@ -131,5 +133,5 @@ BADxUpdated: boolean; quickCode: string; - + @@ -153,4 +155,5 @@ procedure TfrmODCslt.FormCreate(Sender: TObject); begin + frmFrame.pnlVisit.Enabled := false; AutoSizeDisabled := True; inherited; @@ -223,5 +226,7 @@ cboService.Enabled := True; cboService.Font.Color := clWindowText; + cboService.Height := 25 + (7 * cboService.ItemHeight); btnServiceTree.Enabled := True; + pnlServiceTreeButton.Enabled := True; ActiveControl := cboService; SetProvDiagPromptingMode; @@ -271,4 +276,5 @@ cboService.Font.Color := clGrayText; btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then begin @@ -286,5 +292,4 @@ begin if QuickList.Count > 0 then BuildQuickTree(QuickList, '0', nil) ; - //SvcList.Assign(LoadServiceList(CN_SVC_LIST_ORD)) ; SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_ORD)); {RV} AList.Assign(SvcList); @@ -512,4 +517,5 @@ cboService.Font.Color := clGrayText; btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; Changing := False; end; @@ -645,8 +651,6 @@ begin inherited; - - //if NOT BILLING_AWARE then - if treService.Selected <> nil then - LastNode := treService.Selected.AbsoluteIndex; + if treService.Selected <> nil then + LastNode := treService.Selected.AbsoluteIndex; if BILLING_AWARE and CIDCOkToSave then @@ -657,5 +661,4 @@ begin uBACore.CompleteConsultOrderRec(uBAGlobals.BAOrderID,UBAGlobals.BAConsultDxList); - // if ProvDx.Reqd = 'R' then UBAGlobals.BAConsultOrdersRequireDx.Add(uBAGlobals.BAOrderID); //allow special handling of non cidc consults that require dx . uBAGlobals.BAConsultDxList.Clear; end; @@ -743,4 +746,5 @@ Font.Color := clGrayText; btnServiceTree.Enabled := False; + pnlServiceTreeButton.Enabled := False; Changing := False; with Responses do if QuickOrder > 0 then @@ -945,5 +949,8 @@ with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit; if ProvDx.Reqd = 'R' then - lblProvDiag.Caption := TX_PROVDX_REQD + begin + lblProvDiag.Caption := TX_PROVDX_REQD; + if (BILLING_AWARE) and (ProvDx.PromptMode[1] = '') then btnDiagnosis.Enabled := True; + end else lblProvDiag.Caption := TX_PROVDX_OPT; @@ -1066,6 +1073,5 @@ Result := False; AbortOrder := True; - //cmdQuitClick(Self); - end + end else Result := True; end; @@ -1076,7 +1082,4 @@ end; -////////// NOTE THIS FUNCTION IS NO LONGER ASSIGNED TO OnExit EVENT -///////// Calling this with enter making a selection had serious errors -///////// No ill effect can be seen for not calling it. procedure TfrmODCslt.cboServiceExit(Sender: TObject); begin @@ -1086,5 +1089,7 @@ if cboService.ItemID = FLastServiceID then Exit; cboServiceSelect(cboService); - cboService.SetFocus; + // 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; @@ -1141,6 +1146,8 @@ TmpSL: TStringList; DocInfo: string; - -begin + x: string; + HasObjects: boolean; +begin + Resolve := FALSE ; // override value passed in - resolve on client - PSI-05-093 DocInfo := ''; TmpSL := TStringList.Create; @@ -1148,5 +1155,10 @@ 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 @@ -1284,5 +1296,5 @@ //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 + if (Key <> VK_RETURN) {and (Key <> VK_SPACE)} and (Key <> VK_LBUTTON) then //comment on this line is fix for CQ6789 FcboServiceKeyDownStopClick := True else @@ -1333,4 +1345,5 @@ end; end; + ProvDx.CodeInactive := False; end; @@ -1387,4 +1400,10 @@ end; +procedure TfrmODCslt.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + end. Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm (revision 460) @@ -1,14 +1,13 @@ inherited frmODProc: TfrmODProc Tag = 112 - Left = 262 - Top = 191 - Width = 531 - Height = 322 + Left = 208 + Top = 188 + Width = 543 + Height = 393 HorzScrollBar.Range = 523 - HorzScrollBar.Visible = True VertScrollBar.Range = 295 - VertScrollBar.Visible = True - AutoScroll = False Caption = 'Order a Procedure' + Constraints.MinHeight = 393 + Constraints.MinWidth = 543 PixelsPerInch = 96 TextHeight = 13 @@ -31,6 +30,13 @@ WordWrap = False end - object lblUrgency: TStaticText [2] - Left = 237 + 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 @@ -40,6 +46,6 @@ TabOrder = 15 end - object lblPlace: TStaticText [3] - Left = 384 + object lblPlace: TStaticText [4] + Left = 396 Top = 43 Width = 104 @@ -49,6 +55,6 @@ TabOrder = 16 end - object lblAttn: TStaticText [4] - Left = 384 + object lblAttn: TStaticText [5] + Left = 396 Top = 4 Width = 46 @@ -58,6 +64,6 @@ TabOrder = 17 end - object lblProvDiag: TStaticText [5] - Left = 237 + object lblProvDiag: TStaticText [6] + Left = 249 Top = 81 Width = 104 @@ -67,28 +73,18 @@ TabOrder = 18 end - object pnlReason: TPanel [6] + object pnlReason: TPanel [7] Left = 0 - Top = 99 - Width = 521 - Height = 154 + Top = 120 + Width = 528 + Height = 192 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone TabOrder = 9 - DesignSize = ( - 521 - 154) - object lblReason: TLabel - Left = 4 - Top = 9 - Width = 95 - Height = 13 - Caption = 'Reason for Request' - end object memReason: TCaptionRichEdit Left = 0 - Top = 24 - Width = 521 - Height = 130 - Anchors = [akLeft, akTop, akRight, akBottom] + Top = 0 + Width = 528 + Height = 192 + Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -96,4 +92,5 @@ Font.Name = 'Courier New' Font.Style = [] + Constraints.MinHeight = 40 ParentFont = False PopupMenu = popReason @@ -110,9 +107,9 @@ end inherited memOrder: TCaptionMemo - Left = 4 - Top = 258 - Width = 361 - Height = 36 - Anchors = [akLeft, akRight, akBottom] + Left = 0 + Top = 321 + Width = 380 + Height = 41 + Anchors = [akLeft, akRight] Lines.Strings = ( 'The order text...' @@ -123,6 +120,6 @@ TabOrder = 1 end - object cboUrgency: TORComboBox [8] - Left = 237 + object cboUrgency: TORComboBox [9] + Left = 249 Top = 17 Width = 133 @@ -148,6 +145,6 @@ CharsNeedMatch = 1 end - object cboPlace: TORComboBox [9] - Left = 384 + object cboPlace: TORComboBox [10] + Left = 396 Top = 56 Width = 133 @@ -173,10 +170,172 @@ CharsNeedMatch = 1 end - object txtProvDiag: TCaptionEdit [10] - Left = 237 + 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 @@ -185,170 +344,4 @@ OnChange = txtProvDiagChange Caption = 'Provisional Diagnosis' - end - object txtAttn: TORComboBox [11] - Left = 384 - 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 = 215 - 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 = 215 - 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 = 369 - Top = 268 - Anchors = [akRight, akBottom] - TabOrder = 10 - end - inherited cmdQuit: TButton - Left = 457 - Top = 268 - Width = 64 - Anchors = [akRight, akBottom] - TabOrder = 11 - end - inherited pnlMessage: TPanel - Left = 50 - Top = 249 - Width = 304 - Anchors = [akLeft, akRight, akBottom] - TabOrder = 12 - inherited memMessage: TRichEdit - Width = 254 - end - end - object cmdLexSearch: TButton - Left = 474 - Top = 93 - Width = 49 - Height = 21 - Anchors = [akTop, akRight] - Caption = 'Lexicon' - TabOrder = 8 - OnClick = cmdLexSearchClick - end - object gbInptOpt: TGroupBox - Left = 237 - Top = 36 - Width = 140 - Height = 45 - Anchors = [akTop, akRight] - Caption = 'Patient will be seen as an:' - TabOrder = 5 - DesignSize = ( - 140 - 45) - object radInpatient: TRadioButton - Left = 3 - Top = 20 - Width = 61 - Height = 17 - Anchors = [akTop, akRight] - Caption = '&Inpatient' - TabOrder = 0 - OnClick = radInpatientClick - end - object radOutpatient: TRadioButton - Left = 67 - Top = 20 - Width = 71 - Height = 17 - Anchors = [akTop, akRight] - Caption = '&Outpatient' - TabOrder = 1 - OnClick = radOutpatientClick - end end object mnuPopProvDx: TPopupMenu Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.pas (revision 460) @@ -12,5 +12,4 @@ cboUrgency: TORComboBox; cboPlace: TORComboBox; - txtProvDiag: TCaptionEdit; txtAttn: TORComboBox; lblProc: TLabel; @@ -34,8 +33,9 @@ pnlReason: TPanel; memReason: TCaptionRichEdit; - lblReason: TLabel; gbInptOpt: TGroupBox; radInpatient: TRadioButton; radOutpatient: TRadioButton; + txtProvDiag: TCaptionEdit; + lblReason: TLabel; procedure FormCreate(Sender: TObject); procedure txtAttnNeedData(Sender: TObject; const StartFrom: String; @@ -63,4 +63,6 @@ Shift: TShiftState); procedure memReasonKeyPress(Sender: TObject; var Key: Char); + procedure FormResize(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private FLastProcID: string; @@ -88,5 +90,5 @@ uses rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, ORClasses, - clipbrd, fPreReq, uTemplates, uAccessibleRichEdit; + clipbrd, fPreReq, uTemplates, uAccessibleRichEdit, fFrame, uODBase; var @@ -109,4 +111,5 @@ procedure TfrmODProc.FormCreate(Sender: TObject); begin + frmFrame.pnlVisit.Enabled := false; AutoSizeDisabled := True; inherited; @@ -709,5 +712,8 @@ TmpSL: TStringList; DocInfo: string; -begin + x: string; + HasObjects: boolean; +begin + Resolve := FALSE ; // override value passed in - resolve on client - PSI-05-093 DocInfo := ''; TmpSL := TStringList.Create; @@ -715,6 +721,11 @@ 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 @@ -805,4 +816,17 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/fPreReq.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/fPreReq.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/fPreReq.dfm (revision 460) @@ -12,5 +12,4 @@ Font.Name = 'MS Sans Serif' Font.Style = [] - FormStyle = fsStayOnTop OldCreateOrder = True Position = poScreenCenter Index: cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas (revision 460) @@ -4,4 +4,11 @@ uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, uConsults, rTIU, uTIU; + +type + + TUnresolvedConsults = record + UnresolvedConsultsExist: boolean; + ShowNagScreen: boolean; + end; {Consult Titles } @@ -32,4 +39,5 @@ function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings; function UnresolvedConsultsExist: boolean; +procedure GetUnresolvedConsultsInfo; {list box fillers} @@ -97,4 +105,5 @@ uClinProcClass: integer; uClinProcTitles: TClinProcTitles; + uUnresolvedConsults: TUnresolvedConsults; implementation @@ -602,4 +611,16 @@ 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmDiagnoses: TfrmDiagnoses - Left = 306 - Top = 183 + Left = 304 + Top = 169 Caption = 'Encounter Diagnoses' PixelsPerInch = 96 @@ -76,7 +76,5 @@ inherited lbSection: TORListBox Tag = 20 - Style = lbOwnerDrawFixed TabOrder = 0 - OnDrawItem = lbSectionDrawItem end inherited btnOther: TButton Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas (revision 460) @@ -218,10 +218,8 @@ var i: integer; - dxString: string; dxCode, dxName: string; ADiagnosis: TPCEItem; begin inherited; - ADiagnosis := TPCEItem.Create; UBAGlobals.BAPCEDiagList.Clear; with lbGrid do for i := 0 to Items.Count - 1 do Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmEncVitals: TfrmEncVitals - Left = 400 - Top = 227 + Left = 353 + Top = 210 Caption = 'Vitals' KeyPreview = True @@ -8,16 +8,42 @@ OnKeyDown = FormKeyDown OnResize = FormResize - OnShow = FormShow 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 = 1 + TabOrder = 3 end inherited btnCancel: TBitBtn Left = 524 Top = 377 - TabOrder = 2 + TabOrder = 4 end object pnlmain: TPanel @@ -27,4 +53,5 @@ Height = 217 TabOrder = 0 + Visible = False object lblVitPointer: TOROffsetLabel Left = 506 @@ -383,4 +410,5 @@ ListItemsOnly = True LongList = False + LookupPiece = 0 MaxLength = 0 Pieces = '1,2' @@ -390,4 +418,5 @@ TabStop = True OnEnter = SetVitPointer + CharsNeedMatch = 1 end object txtMeasPulse: TCaptionEdit @@ -414,3 +443,12 @@ end end + object btnEnterVitals: TButton + Left = 8 + Top = 377 + Width = 75 + Height = 21 + Caption = 'Enter Vitals' + TabOrder = 2 + OnClick = btnEnterVitalsClick + end end Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.pas (revision 460) @@ -6,5 +6,20 @@ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, fPCEBase, ORDtTm, StdCtrls, ORCtrls, ExtCtrls, Buttons, fAutoSz, ORFn, - rvitals, ComCtrls; + 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 @@ -47,4 +62,7 @@ txtMeasPulse: TCaptionEdit; txtMeasHt: TCaptionEdit; + pnlBottom: TPanel; + btnEnterVitals: TButton; + lvVitals: TCaptionListView; procedure SetVitPointer(Sender: TObject); procedure txtMeasBPExit(Sender: TObject); @@ -71,4 +89,5 @@ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure btnEnterVitalsClick(Sender: TObject); //vitals lite private FDataLoaded: boolean; @@ -82,4 +101,6 @@ procedure ChangeFocus(Control: TWinControl); procedure ClearData; + procedure LoadVitalView(VitalsList : TStringList); //Vitals Lite + procedure LoadVitalsList; public function OK2SaveVitals: boolean; @@ -97,5 +118,7 @@ uses UCore, rCore, rPCE, fPCELex, fPCEOther, fVitals,fVisit, fFrame, fEncnt, - uVitals, fEncounterFrame; + fEncounterFrame, uInit + // , fGMV_InputTemp // Vitals Lite 2004-05-21 + ; const @@ -373,7 +396,8 @@ end; + procedure TfrmEncVitals.FormCreate(Sender: TObject); - -begin +begin + inherited; FTabName := CT_VitNm; @@ -389,8 +413,12 @@ begin - inherited; //uVisitType.Free; uVitalOld.Free; uVitalNew.free; + +{== Vitals Lite 2004-05-21 ===================================================} + FreeLibrary(VitalsDLLHandle); +{== Vitals Lite 2004-05-21 ===================================================} + inherited; end; @@ -412,6 +440,18 @@ procedure TfrmEncVitals.FormShow(Sender: TObject); -begin - inherited; +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); @@ -540,3 +580,87 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm (revision 460) @@ -1,6 +1,6 @@ object frmEncounterFrame: TfrmEncounterFrame - Left = 366 - Top = 181 - Width = 612 + Left = 290 + Top = 108 + Width = 640 Height = 451 Caption = 'Encounter Frame' @@ -16,4 +16,5 @@ Position = poScreenCenter OnCanResize = FormCanResize + OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate @@ -26,5 +27,5 @@ Left = 0 Top = 0 - Width = 604 + Width = 632 Height = 2 Align = alTop @@ -32,6 +33,6 @@ object StatusBar1: TStatusBar Left = 0 - Top = 424 - Width = 604 + Top = 417 + Width = 632 Height = 0 Panels = <> @@ -41,6 +42,6 @@ Left = 0 Top = 24 - Width = 604 - Height = 400 + Width = 632 + Height = 393 Align = alClient BevelOuter = bvNone @@ -52,10 +53,9 @@ ParentFont = False TabOrder = 1 - TabStop = True end object TabControl: TTabControl Left = 0 Top = 2 - Width = 604 + Width = 632 Height = 22 Align = alTop Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas (revision 460) @@ -75,4 +75,5 @@ 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); @@ -123,5 +124,5 @@ uCore, fGAF, uConst, - rCore, fPCEProvider; + rCore, fPCEProvider, rMisc; {$R *.DFM} @@ -397,4 +398,5 @@ frmEncounterFrame.CreateChildForms(frmEncounterFrame, PCEData.Location); ResizeAnchoredFormToFont(frmEncounterFrame); + SetFormPosition(frmEncounterFrame); with frmEncounterFrame do @@ -714,11 +716,11 @@ if FormListContains(CT_ImmNm) then SetImmunizations(frmImmunizations.lbGrid.Items); - if FormListContains(CT_ImmNm) then + if FormListContains(CT_SkinNm) then SetSkinTests(frmSkinTests.lbGrid.Items); if FormListContains(CT_PedNm) then SetPatientEds(frmPatientEd.lbGrid.Items); - if FormListContains(CT_ImmNm) then + if FormListContains(CT_HlthNm) then SetHealthFactors(frmHealthFactors.lbGrid.Items); - if FormListContains(CT_ImmNm) then + if FormListContains(CT_XamNm) then SetExams(frmExams.lbGrid.Items); end; @@ -817,5 +819,12 @@ end; -procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); +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 Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fHealthFactor.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fHealthFactor.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fHealthFactor.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmHealthFactors: TfrmHealthFactors - Left = 434 - Top = 354 + Left = 374 + Top = 205 Caption = 'Health Factor page' PixelsPerInch = 96 @@ -46,4 +46,5 @@ end inherited edtComment: TCaptionEdit + MaxLength = 245 TabOrder = 3 end @@ -90,4 +91,5 @@ ListItemsOnly = False LongList = False + LookupPiece = 0 MaxLength = 0 Pieces = '2' @@ -96,4 +98,5 @@ TabOrder = 4 OnChange = cboHealthLevelChange + CharsNeedMatch = 1 end end Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCELex.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCELex.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCELex.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmPCELex: TfrmPCELex - Left = 386 - Top = 204 + Left = 639 + Top = 480 BorderIcons = [] BorderStyle = bsDialog Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm (revision 460) @@ -71,4 +71,5 @@ OnChange = cboPrimaryChange OnNeedData = cboPrimaryNeedData + CharsNeedMatch = 1 end object btnYes: TButton Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas (revision 460) @@ -150,4 +150,5 @@ function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean; function IsCancelOrNoShow(ANote: integer): boolean; +function IsNonCountClinic(ALocation: integer): boolean; // HNC Flag @@ -173,5 +174,4 @@ uVTypeForLoc: TStringList; uProblems: TStringList; - uModifiers: TORStringList = nil; uGAFOK: boolean; @@ -1438,4 +1438,9 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas (revision 460) @@ -1375,8 +1375,7 @@ Result := inherited DelimitedStr; if Provider > 0 then tmpProv := IntToStr(Provider) else tmpProv := ''; - //Result := 'CPT' + Result + U + IntToStr(Quantity) + U + IntToStr(Provider) + Result := 'CPT' + Result + U + IntToStr(Quantity) + U + tmpProv - //Result := 'CPT' + Result + U + IntToStr(Quantity) + U + - + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U; + + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U; + if Length(Result) > 250 then SetPiece(Result, U, 4, ''); end; @@ -1554,4 +1553,5 @@ BOOLCHAR[AddProb] + U + U + U; if(SaveComment) then Result := Result + IntToStr(UNxtCommSeqNum); + if Length(Result) > 250 then SetPiece(Result, U, 4, ''); end; @@ -2988,4 +2988,9 @@ begin if not CanEditPCE(Self) then + begin + Result := TRUE; + exit; + end; + if IsNonCountClinic(FEncLocation) then begin Result := TRUE; Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.dfm (revision 460) @@ -1,11 +1,12 @@ object frmOptions: TfrmOptions - Left = 307 - Top = 170 + Left = 315 + Top = 110 + Width = 435 + Height = 397 HelpContext = 9999 + VertScrollBar.Range = 360 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Options' - ClientHeight = 363 - ClientWidth = 427 Color = clBtnFace ParentFont = True @@ -19,5 +20,5 @@ object pnlBottom: TPanel Left = 0 - Top = 333 + Top = 340 Width = 427 Height = 30 @@ -66,5 +67,5 @@ Top = 0 Width = 427 - Height = 333 + Height = 340 Align = alClient BevelOuter = bvNone @@ -76,5 +77,5 @@ Top = 5 Width = 417 - Height = 323 + Height = 330 HelpContext = 9999 ActivePage = tsListsTeams @@ -87,5 +88,5 @@ DesignSize = ( 409 - 295) + 302) object bvlCoverDays: TBevel Left = 125 @@ -923,5 +924,5 @@ DesignSize = ( 409 - 295) + 302) object bvlNotesNotes: TBevel Left = 88 @@ -977,5 +978,5 @@ 00000000000000000000000000000000000000000000000000000000} end - object Image1: TImage + object imgNotes: TImage Left = 16 Top = 163 @@ -1111,13 +1112,13 @@ Caption = 'Reports' ImageIndex = 5 - object Bevel1: TBevel + object bvlReports: TBevel Left = 80 - Top = 24 + Top = 16 Width = 321 Height = 2 end - object Image2: TImage - Left = 16 - Top = 48 + object imgReports: TImage + Left = 20 + Top = 31 Width = 41 Height = 41 @@ -1150,7 +1151,19 @@ FFFFFFFF} end - object Image3: TImage + 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 = 176 + Top = 123 Width = 41 Height = 41 @@ -1192,13 +1205,86 @@ 00010000000000000200000083000000C7000000FF810000FFC30000} end - object Bevel2: TBevel - Left = 104 - Top = 160 - Width = 297 - Height = 2 - end - object Label3: TMemo + 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 = 48 + Top = 27 Width = 273 Height = 41 @@ -1213,7 +1299,7 @@ TabOrder = 4 end - object Label4: TMemo + object memReport1: TMemo Left = 128 - Top = 184 + Top = 121 Width = 273 Height = 49 @@ -1228,7 +1314,7 @@ TabOrder = 5 end - object Label1: TStaticText + object lblReports: TStaticText Left = 13 - Top = 16 + Top = 9 Width = 55 Height = 17 @@ -1236,7 +1322,7 @@ TabOrder = 2 end - object Label2: TStaticText - Left = 13 - Top = 152 + object lblReport1: TStaticText + Left = 9 + Top = 101 Width = 89 Height = 17 @@ -1244,21 +1330,206 @@ TabOrder = 3 end - object Button1: TButton + object btnReports: TButton Left = 200 - Top = 104 + Top = 76 Width = 193 Height = 22 Caption = 'Set All Reports...' TabOrder = 0 - OnClick = Button1Click - end - object Button2: TButton + OnClick = btnReportsClick + end + object btnReport1: TButton Left = 200 - Top = 240 + Top = 167 Width = 193 Height = 22 Caption = 'Set Individual Report...' TabOrder = 1 - OnClick = Button2Click + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.pas (revision 460) @@ -72,18 +72,34 @@ btnNotesTitles: TButton; imgNotesNotes: TImage; - Image1: TImage; + imgNotes: TImage; imgTeams: TImage; tsCprsReports: TTabSheet; - Label1: TStaticText; - Bevel1: TBevel; - Label3: TMemo; - Image2: TImage; - Button1: TButton; - Label2: TStaticText; - Image3: TImage; - Label4: TMemo; - Button2: TButton; - Bevel2: TBevel; + 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); @@ -108,10 +124,13 @@ procedure btnNotesNotesClick(Sender: TObject); procedure btnNotesTitlesClick(Sender: TObject); - procedure Button1Click(Sender: TObject); - procedure Button2Click(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 } @@ -145,5 +164,7 @@ uses fOptionsDays, fOptionsReminders, fOptionsSurrogate, fOptionsPatientSelection, fOptionsLists, fOptionsTeams, fOptionsCombinations, - fOptionsOther, fOptionsNotes, fOptionsTitles, fOptionsReportsCustom, fOptionsReportsDefault, rOptions, rCore, uCore, uOptions; + fOptionsOther, fOptionsNotes, fOptionsTitles, fOptionsReportsCustom, fOptionsReportsDefault, + fGraphs, fGraphSettings, fGraphProfiles, rGraphs, uGraphs, + rOptions, rCore, uCore, uOptions, UBACore, fFrame; //fTestDialog; @@ -195,10 +216,10 @@ tsListsTeams.TabVisible := true; ActivePage := tsCoverSheet; - Label3.Text := 'Change the default date range and occurrence limits for all reports on ' + + memReports.Text := 'Change the default date range and occurrence limits for all reports on ' + 'the CPRS Reports tab (excluding health summary reports) .'; - Label4.Text := 'Change the individual date range and occurrence limits for each report on ' + + memReport1.Text := 'Change the individual date range and occurrence limits for each report on ' + 'the CPRS Reports tab (excluding health summary reports) .'; - Button1.caption := 'Set All Reports...'; - Button2.caption := 'Set Individual Reports...'; + btnReports.caption := 'Set All Reports...'; + btnReport1.caption := 'Set Individual Reports...'; if User.IsReportsOnly then // For "Reports Only" users. begin @@ -217,10 +238,10 @@ if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. begin - Label3.Text := 'View the default date range and occurrence limits for all reports on ' + + memReports.Text := 'View the default date range and occurrence limits for all reports on ' + 'the CPRS Reports tab (excluding health summary reports) .'; - Label4.Text := 'View the individual date range and occurrence limits for each report on ' + + memReport1.Text := 'View the individual date range and occurrence limits for each report on ' + 'the CPRS Reports tab (excluding health summary reports) .'; - Button1.caption := 'View All Report Settings...'; - Button2.caption := 'View Individual Report Settings...'; + btnReports.caption := 'View All Report Settings...'; + btnReport1.caption := 'View Individual Report Settings...'; end; end; @@ -249,7 +270,8 @@ FdirtyOtherStuff := false; CheckApply; - if not BILLING_AWARE then btnDiagnoses.Enabled := False; - if (Encounter.Provider = 0) and not PersonHasKey(Encounter.Provider, 'PROVIDER') then + + if (Encounter.Provider = 0) and not IsCIDCProvider(User.DUZ) then btnDiagnoses.Enabled := False; + if UseVistaWeb then rdoRDV.ItemIndex := 1; end; @@ -641,5 +663,5 @@ end; -procedure TfrmOptions.Button1Click(Sender: TObject); +procedure TfrmOptions.btnReportsClick(Sender: TObject); var topsize, leftsize, value: integer; @@ -650,5 +672,5 @@ end; -procedure TfrmOptions.Button2Click(Sender: TObject); +procedure TfrmOptions.btnReport1Click(Sender: TObject); var topsize, leftsize, value: integer; @@ -678,5 +700,5 @@ topsize, leftsize, value: integer; begin - if BILLING_AWARE then {BAV25 Code} + if IsCIDCProvider(User.DUZ) then //(hds7564) begin value := 0; @@ -686,4 +708,75 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.dfm (revision 460) @@ -196,9 +196,10 @@ end object txtTodayMinus: TStaticText - Left = 32 + Left = 38 Top = 321 - Width = 79 - Height = 17 - Caption = 'TODAY MINUS' + Width = 64 + Height = 17 + Alignment = taRightJustify + Caption = 'Today minus' Color = clBtnFace ParentColor = False @@ -219,9 +220,9 @@ end object txtDaysMinus: TStaticText - Left = 176 + Left = 178 Top = 322 - Width = 36 - Height = 17 - Caption = ' DAYS' + Width = 26 + Height = 17 + Caption = 'days' Color = clBtnFace ParentColor = False @@ -244,9 +245,9 @@ end object txtDaysPlus: TStaticText - Left = 178 + Left = 180 Top = 374 - Width = 36 - Height = 17 - Caption = ' DAYS' + Width = 26 + Height = 17 + Caption = 'days' Color = clBtnFace ParentColor = False @@ -282,9 +283,10 @@ end object txtTodayPlus: TStaticText - Left = 42 + Left = 46 Top = 372 - Width = 72 - Height = 17 - Caption = 'TODAY PLUS' + Width = 56 + Height = 17 + Alignment = taRightJustify + Caption = 'Today plus' Color = clBtnFace ParentColor = False Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.pas (revision 460) @@ -52,5 +52,5 @@ FstopDt: TFMDateTime; FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer; - FDefaultEvent: string; + //FDefaultEvent: string; public { Public declarations } Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.dfm (revision 460) @@ -1,5 +1,5 @@ object frmOptionsReportsCustom: TfrmOptionsReportsCustom - Left = 468 - Top = 4 + Left = 414 + Top = 329 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.pas (revision 460) @@ -205,7 +205,8 @@ 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; + signal := 0; end; @@ -291,4 +292,5 @@ begin Val(newValue, I, code); + if I = 0 then begin end; //added to keep compiler from generating a hint if code <> 0 then begin Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.dfm (revision 460) @@ -1,5 +1,5 @@ object frmOptionsReportsDefault: TfrmOptionsReportsDefault - Left = 604 - Top = 172 + Left = 773 + Top = 334 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.pas (revision 460) @@ -200,4 +200,5 @@ begin Val(newValue, I, code); + if I = 0 then begin end; //added to keep compiler from generating a hint if code <> 0 then begin Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.dfm (revision 460) @@ -208,4 +208,6 @@ OnClick = cboSubscribeClick OnKeyDown = cboSubscribeKeyDown + OnMouseClick = cboSubscribeMouseClick + CharsNeedMatch = 1 end object mnuPopPatient: TPopupMenu Index: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.pas (revision 460) @@ -37,4 +37,5 @@ procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure cboSubscribeMouseClick(Sender: TObject); private FKeyBoarding: boolean; @@ -224,4 +225,50 @@ 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 @@ -229,5 +276,7 @@ begin with cboSubscribe do - if InfoBox('Do you want to join ' + 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 @@ -249,41 +298,3 @@ 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 (lstTeams.ItemIndex > 0) then - cboSubscribeClick(self); // Provide onclick behavior. - else - FKeyBoarding := True; // Suppress onclick behavior. - end; -end; - end. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.dfm (revision 460) @@ -11,32 +11,42 @@ TextHeight = 13 object memChecks: TRichEdit - Left = 8 - Top = 8 - Width = 454 - Height = 120 + Left = 0 + Top = 0 + Width = 472 + Height = 136 + Align = alClient ReadOnly = True ScrollBars = ssVertical - TabOrder = 2 + TabOrder = 0 WantReturns = False end - object cmdAccept: TButton - Left = 148 - Top = 140 - Width = 80 - Height = 21 - Caption = 'Accept Order' - Default = True - ModalResult = 6 - TabOrder = 0 - end - object cmdCancel: TButton - Left = 244 - Top = 140 - Width = 80 - Height = 21 - Cancel = True - Caption = 'Cancel Order' - ModalResult = 7 + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.pas (revision 460) @@ -5,9 +5,10 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - fAutoSz, StdCtrls, ComCtrls, ORFn; + fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls; type TfrmOCAccept = class(TfrmAutoSz) memChecks: TRichEdit; + pnlBottom: TPanel; cmdAccept: TButton; cmdCancel: TButton; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmOCSession: TfrmOCSession - Left = 220 - Top = 392 + Left = 365 + Top = 221 Width = 504 Height = 298 @@ -7,51 +7,75 @@ Caption = 'Order Checks' Position = poScreenCenter + ShowHint = True + OnClose = FormClose + OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 - object lblJustify: TLabel - Left = 8 - Top = 195 - Width = 248 - Height = 13 - Caption = 'Enter justification for overriding critical order checks -' - end - object lstChecks: TListBox - Left = 8 - Top = 8 - Width = 480 - Height = 149 + object lstChecks: TCaptionListBox + Left = 0 + Top = 0 + Width = 496 + Height = 160 + Style = lbOwnerDrawVariable + Align = alClient ItemHeight = 13 MultiSelect = True - Style = lbOwnerDrawVariable - TabOrder = 0 + ParentShowHint = False + ShowHint = True + TabOrder = 1 OnDrawItem = lstChecksDrawItem OnMeasureItem = lstChecksMeasureItem + HintOnItem = True end - object txtJustify: TCaptionEdit - Left = 8 - Top = 209 - Width = 480 - Height = 21 - MaxLength = 80 - TabOrder = 2 - Caption = 'Enter justification for overriding critical order checks -' - end - object cmdCancelOrder: TButton - Left = 356 - Top = 162 - Width = 133 - Height = 21 - Caption = 'Cancel Selected Order(s)' - TabOrder = 1 - OnClick = cmdCancelOrderClick - end - object cmdContinue: TButton - Left = 212 - Top = 242 - Width = 72 - Height = 21 - Caption = 'Continue' - TabOrder = 3 - OnClick = cmdContinueClick + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.pas (revision 460) @@ -5,11 +5,12 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - fAutoSz, StdCtrls, ORFn, uConst, ORCtrls; + fAutoSz, StdCtrls, ORFn, uConst, ORCtrls, ExtCtrls; type TfrmOCSession = class(TfrmAutoSz) - lstChecks: TListBox; + lstChecks: TCaptionListBox; + pnlBottom: TPanel; + lblJustify: TLabel; txtJustify: TCaptionEdit; - lblJustify: TLabel; cmdCancelOrder: TButton; cmdContinue: TButton; @@ -20,4 +21,9 @@ 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; @@ -36,5 +42,5 @@ {$R *.DFM} -uses rOrders, uCore; +uses rOrders, uCore, rMisc; type @@ -49,4 +55,5 @@ var uCheckedOrders: TList; + FOldHintHidePause: integer; constructor TOCRec.Create(const AnID: string); @@ -54,8 +61,10 @@ OrderID := AnID; Checks := TStringList.Create; + FOldHintHidePause := Application.HintHidePause; end; destructor TOCRec.Destroy; begin + Application.HintHidePause := FOldHintHidePause; Checks.Free; inherited Destroy; @@ -141,4 +150,5 @@ frmOCSession.SetReqJustify; MessageBeep(MB_ICONASTERISK); + if frmOCSession.Visible then frmOCSession.SetFocus; frmOCSession.ShowModal; finally @@ -166,8 +176,8 @@ lblJustify.Visible := FCritical; txtJustify.Visible := FCritical; -end; - -procedure TfrmOCSession.lstChecksMeasureItem(Control: TWinControl; Index: Integer; - var Height: Integer); + +end; + +procedure TfrmOCSession.lstChecksMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); var i, AHt, TotalHt: Integer; @@ -177,28 +187,28 @@ 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) + 2; - 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); - TotalHt := TotalHt + AHt; - end; - end; + 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 -end; - -procedure TfrmOCSession.lstChecksDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; - State: TOwnerDrawState); + if Height > 255 then Height := 255; //CQ7178 +end; + +procedure TfrmOCSession.lstChecksDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var i, AHt: Integer; @@ -208,32 +218,31 @@ 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) + 2; - 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 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 - 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); - ARect.Top := ARect.Top + AHt; - end; - end; + 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; @@ -268,5 +277,5 @@ if FCritical and ((Length(txtJustify.Text) < 2) or not ContainsVisibleChar(txtJustify.Text)) then begin - InfoBox('A justification for overriding critical order checks is required.', + InfoBox('A justification for overriding critical order checks is required.', 'Justification Required', MB_OK); Exit; @@ -278,3 +287,31 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.dfm (revision 460) @@ -184,4 +184,5 @@ TabOrder = 3 OnChange = ControlChange + CharsNeedMatch = 1 end object grpObsHist: TRadioGroup @@ -260,4 +261,5 @@ OnChange = ControlChange OnNeedData = cboOriginatorNeedData + CharsNeedMatch = 1 end object cboSymptoms: TORComboBox @@ -285,4 +287,5 @@ OnMouseClick = cboSymptomsMouseClick OnNeedData = cboSymptomsNeedData + CharsNeedMatch = 1 end object btnCurrent: TButton @@ -328,4 +331,5 @@ TabOrder = 11 OnChange = ControlChange + CharsNeedMatch = 1 end object btnRemove: TButton Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas (revision 460) @@ -496,4 +496,6 @@ procedure TfrmODAllergy.cboSymptomsMouseClick(Sender: TObject); +var + x: string; begin inherited; @@ -501,7 +503,12 @@ 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(cboSymptoms.Items[cboSymptoms.ItemIndex]); + Items.Add(x); SelectByID(cboSymptoms.ItemID); end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas (revision 460) @@ -24,5 +24,5 @@ uses rODBase, rOrders, fTemplateDialog, uTemplateFields, rTemplates, uConst, uTemplates, - rConsults; + rConsults, uCore, uODBase; procedure TfrmODAuto.InitDialog; @@ -38,4 +38,5 @@ LType: TTemplateLinkType; IEN: integer; + HasObjects: boolean; begin @@ -44,4 +45,6 @@ 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 @@ -56,5 +59,5 @@ else CheckBoilerplate4Fields(tmp, cptn); - + if tmp <> '' then Responses.Update('COMMENT', 1, TX_WPTYPE, tmp) Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBBank.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.dfm (revision 460) @@ -4,4 +4,10 @@ Width = 528 Height = 275 + HorzScrollBar.Range = 500 + HorzScrollBar.Tracking = True + HorzScrollBar.Visible = True + VertScrollBar.Range = 225 + VertScrollBar.Visible = True + AutoScroll = False BorderIcons = [biSystemMenu] Caption = '' Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.pas (revision 460) @@ -62,4 +62,6 @@ FLogTime: TFMDateTime; FViewName: string; + FCancel: boolean; + FOrderContainsObjects: boolean; function FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse; function GetOrderText: string; @@ -83,4 +85,5 @@ 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; @@ -96,5 +99,5 @@ const AnIValue, AnEValue: string); property Dialog: string read FDialog write SetDialog; - property DisplayGroup: Integer read FDisplayGroup; + property DisplayGroup: Integer read FDisplayGroup write FDisplayGroup; property CopyOrder: string read FCopyOrder write SetCopyOrder; property EditOrder: string read FEditOrder; // write SetEditOrder; @@ -110,4 +113,6 @@ 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; @@ -241,5 +246,5 @@ uses fOCAccept, uODBase, rCore, rMisc, fODMessage, fTemplateDialog, uEventHooks, uTemplates, rConsults,fOrders,uOrders, - fFrame, uTemplateFields; + fFrame, uTemplateFields, fClinicWardMeds; const @@ -583,4 +588,6 @@ 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 @@ -590,30 +597,40 @@ end; Clear; - LoadResponses(FResponseList, AnID); // Example AnID=C123456;1-3604 + 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); // Example AnID=X123456;1 + 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)); // Example AnIEN=134 + 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); // Example AnID=134-3645 + LoadResponses(FResponseList, AnID, HasObjects); // Example AnID=134-3645 FQuickOrder := StrToIntDef(Piece(AnID, '-', 1), 0); // 2nd '-' piece is $H seconds + FOrderContainsObjects := HasObjects; end; @@ -671,4 +688,13 @@ 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; @@ -958,4 +984,5 @@ APtEvtPtr: string; begin + //IMOLoc := 0; NewPtEvtPtr := 0; QOUDGroup := False; @@ -984,4 +1011,29 @@ 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 @@ -1003,4 +1055,5 @@ APtEvtPtr := IntToStr(EventExist(Patient.DFN, FEventIFN)); PTEventPtr := APtEvtPtr; + //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc); PutNewOrder(AnOrder, ConstructOrder, OrderSource); if not SaveAsCurrent then @@ -1012,4 +1065,5 @@ else begin + //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc); PutNewOrder(AnOrder, ConstructOrder, OrderSource); if not SaveAsCurrent then @@ -1064,4 +1118,5 @@ AResponse: TResponse; IEN: integer; + HasObjects: boolean; procedure AssignBPText(List: TStrings; const Value: string); @@ -1080,4 +1135,6 @@ else IEN := 0; end; + ExpandOrderObjects(tmp, HasObjects); + FOrderContainsObjects := FOrderContainsObjects or HasObjects; if IEN <> 0 then begin @@ -1091,5 +1148,4 @@ else CheckBoilerplate4Fields(tmp, cptn); - List.Text := tmp; end; @@ -1326,4 +1382,6 @@ 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; @@ -1432,4 +1490,11 @@ 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; @@ -1497,4 +1562,5 @@ CIDCOkToSave := False; alreadyClosed := False; + self.Responses.Cancel := False; if frmOrders <> nil then begin @@ -1589,4 +1655,5 @@ begin inherited; + //self.Responses.Cancel := False; if User.NoOrdering then Exit; if FAbortOrder then exit; @@ -1726,4 +1793,5 @@ end; + end. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm (revision 460) @@ -1,5 +1,7 @@ inherited frmODDiet: TfrmODDiet - Left = 404 - Top = 199 + Left = 541 + Top = 398 + Width = 532 + Height = 291 Caption = 'Diet Order' OnKeyDown = FormKeyDown @@ -9,6 +11,6 @@ Left = 0 Top = 0 - Width = 520 - Height = 186 + Width = 524 + Height = 194 ActivePage = pgeOutPt Align = alTop @@ -86,4 +88,5 @@ OnMouseClick = cboDietAvailMouseClick OnNeedData = cboDietAvailNeedData + CharsNeedMatch = 1 end object lstDietSelect: TORListBox @@ -165,4 +168,5 @@ TabOrder = 6 OnChange = DietChange + CharsNeedMatch = 1 end object chkCancelTubefeeding: TCheckBox @@ -195,6 +199,6 @@ end object lblOPDietAvail: TLabel - Left = 127 - Top = 0 + Left = 0 + Top = 1 Width = 70 Height = 13 @@ -203,5 +207,5 @@ object lblOPComment: TLabel Left = 4 - Top = 117 + Top = 128 Width = 92 Height = 13 @@ -216,6 +220,6 @@ end object lblOPSelect: TLabel - Left = 127 - Top = 38 + Left = 0 + Top = 39 Width = 64 Height = 13 @@ -223,6 +227,6 @@ end object grpOPMeal: TKeyClickRadioGroup - Left = 5 - Top = 5 + Left = 168 + Top = 11 Width = 110 Height = 107 @@ -234,5 +238,5 @@ 'Evening' '') - TabOrder = 0 + TabOrder = 3 TabStop = True OnClick = grpOPMealClick @@ -242,5 +246,5 @@ Top = 5 Width = 93 - Height = 149 + Height = 155 Caption = 'Days of Week' TabOrder = 8 @@ -334,6 +338,6 @@ end object cboOPDietAvail: TORComboBox - Left = 127 - Top = 15 + Left = 0 + Top = 16 Width = 157 Height = 21 @@ -341,39 +345,4 @@ 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 = 1 - OnExit = cboDietAvailExit - OnMouseClick = cboOPDietAvailMouseClick - OnNeedData = cboOPDietAvailNeedData - end - object txtOPDietComment: TCaptionEdit - Left = 4 - Top = 131 - 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 @@ -388,10 +357,47 @@ Sorted = False SynonymChars = '<>' - TabOrder = 9 + 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 = 127 - Top = 52 + Left = 0 + Top = 53 Width = 156 Height = 56 @@ -399,17 +405,18 @@ ParentShowHint = False ShowHint = True - TabOrder = 2 + TabOrder = 1 Caption = 'Selected Diet Components' ItemTipColor = clWindow LongList = False Pieces = '2' + OnChange = OPChange end object cmdOPRemove: TButton - Left = 212 - Top = 109 + Left = 85 + Top = 110 Width = 72 Height = 17 Caption = 'Remove' - TabOrder = 3 + TabOrder = 2 OnClick = cmdOPRemoveClick end @@ -421,7 +428,7 @@ Caption = 'Cancel Tubefeeding' State = cbGrayed - TabOrder = 10 + TabOrder = 7 Visible = False - OnClick = DietChange + OnClick = OPChange end end @@ -469,4 +476,11 @@ Height = 13 Caption = 'Amount' + end + object lblOPTFStart: TLabel + Left = 341 + Top = 90 + Width = 51 + Height = 13 + Caption = 'Start Date:' end object cboProduct: TORComboBox @@ -493,12 +507,13 @@ OnExit = cboProductExit OnMouseClick = cboProductMouseClick + CharsNeedMatch = 1 end object txtTFComment: TCaptionEdit - Left = 4 + Left = 6 Top = 133 Width = 504 Height = 21 MaxLength = 240 - TabOrder = 6 + TabOrder = 8 OnChange = TFChange Caption = 'Special Instructions' @@ -542,11 +557,11 @@ object txtQuantity: TCaptionEdit Tag = -1 - Left = 340 - Top = 108 + Left = 151 + Top = 124 Width = 93 Height = 19 Hint = - 'Enter quantity as 2000 K, 100 CC/HOUR, 8 OZ/TID, etc; total quan' + - 'tity may not exceed 5000cc.' + 'Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quan' + + 'tity may not exceed 5000ml.' Ctl3D = False ParentCtl3D = False @@ -563,6 +578,6 @@ object cboStrength: TCaptionComboBox Tag = -1 - Left = 444 - Top = 108 + Left = 252 + Top = 124 Width = 53 Height = 21 @@ -583,4 +598,42 @@ '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 @@ -705,5 +758,5 @@ Width = 120 Height = 21 - TabOrder = 3 + TabOrder = 4 OnChange = calELStopChange DateOnly = True @@ -717,5 +770,5 @@ Height = 152 Caption = 'Days of Week' - TabOrder = 4 + TabOrder = 5 object chkMonday: TCheckBox Left = 8 @@ -788,6 +841,31 @@ Height = 17 Caption = 'Bagged Meal' - TabOrder = 5 + 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 @@ -861,4 +939,11 @@ 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 @@ -867,18 +952,63 @@ Height = 21 MaxLength = 80 - TabOrder = 0 + 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 = 172 + Top = 197 Height = 57 TabOrder = 1 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.pas (revision 460) @@ -96,4 +96,11 @@ 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); @@ -137,7 +144,4 @@ procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); - // Outpatient meal additions - procedure cboOPDietAvailNeedData(Sender: TObject; - const StartFrom: String; Direction, InsertAt: Integer); procedure cboOPDietAvailMouseClick(Sender: TObject); procedure cboOPDietAvailExit(Sender: TObject); @@ -149,4 +153,6 @@ procedure grpOPMealClick(Sender: TObject); procedure cmdOPRemoveClick(Sender: TObject); + procedure cboOPDietAvailKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); private FNextCol: Integer; @@ -177,6 +183,8 @@ 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); + procedure SetEnableOPDOW(AllowUse: Boolean; OneTimeDay: integer; DaysToCheck: string = ''); procedure ResetControlsOP; procedure SetValuesFromResponsesOP; @@ -184,4 +192,5 @@ procedure OPDietCheckForNPO; procedure OPDietCheckForTF; + function PatientHasRecurringMeals(var MealList: TStringList; MealType: string = ''): boolean; protected procedure InitDialog; override; @@ -195,4 +204,5 @@ uDialogName: string; uFHAUTH: boolean; + uRecurringMealList: TStringList; implementation @@ -200,5 +210,5 @@ {$R *.DFM} -uses uCore, rODBase, rODDiet, rCore, rOrders, fODDietLT, uAccessibleStringGrid; +uses uCore, rODBase, rODDiet, rCore, rOrders, fODDietLT, uAccessibleStringGrid, DateUtils; const @@ -209,6 +219,5 @@ TX_DIET_PRC = 'This diet conflicts with '; TC_DIET_ERR = 'Unable to Add Diet'; - TX_INPT_ONLY = 'Diets may be entered for inpatients only.'; - //TX_INPT_ONLY = 'This type of diet may be entered for inpatients only.'; + 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; @@ -221,7 +230,7 @@ TX_TFQTY = 'A quantity must be entered for '; TX_TFAMT = 'The quantity is invalid for '; - TX_TF5000 = 'The total quantity ordered may not exceed 5000cc.'; + 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, O for oz. or U for units (e.g. cans).' + 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 + @@ -242,4 +251,6 @@ 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.'; @@ -274,4 +285,17 @@ '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 @@ -290,4 +314,6 @@ begin inherited; + AbortOrder := False; + uRecurringMealList := TStringList.Create; if OrderForInpatient then begin @@ -302,6 +328,6 @@ else // this block will go away after FH patch installed everywhere begin - InfoBox(TX_INPT_ONLY, TC_INPT_ONLY, MB_OK); - Close; + InfoBox(TX_NO_OUTPT_ORDERS, TC_NO_OUTPT_ORDERS, MB_OK); + AbortOrder := True; Exit; end; @@ -313,23 +339,30 @@ if StrToIntDef(ALocation, 0) < 1 then ALocation := IntToStr(Encounter.Location); - 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'); - //if Bagged then Items.Add('B^Bagged'); // ???? - ItemIndex := 0; - chkBagged.Visible := uDietParams.Bagged; // ???? + 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 - 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; + 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); @@ -340,4 +373,5 @@ TAccessibleStringGrid.UnwrapControl(grdSelected); TFClearGrid; + uRecurringMealList.Free; inherited; end; @@ -350,5 +384,5 @@ ColWidths[1] := Canvas.TextWidth('XFULLX') + GetSystemMetrics(SM_CXVSCROLL); ColWidths[2] := Canvas.TextWidth('100 GRAMS/HOUR X 24'); - ColWidths[3] := Canvas.TextWidth('55000cc'); + ColWidths[3] := Canvas.TextWidth('55000ml'); ColWidths[0] := ClientWidth - ColWidths[1] - ColWidths[2] - ColWidths[3] - 3; lblTFStrength.Left := Left + ColWidths[0] + 3; @@ -368,4 +402,5 @@ procedure TfrmODDiet.SetupDialog(OrderAction: Integer; const ID: string); begin + if AbortOrder then exit; inherited; uDialogName := ExternalName(DialogIEN, 101.41); @@ -396,4 +431,9 @@ end; 'T': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; nbkDiet.ActivePage := pgeTubefeeding; nbkDietChange(Self); @@ -401,4 +441,9 @@ end; 'E': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; nbkDiet.ActivePage := pgeEarlyLate; nbkDietChange(Self); @@ -411,4 +456,9 @@ end; 'A': begin + if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then + begin + Close; + Exit; + end; nbkDiet.ActivePage := pgeAdditional; nbkDietChange(Self); @@ -442,4 +492,5 @@ nbkDietChange(Self); if OrderAction <> ORDER_NEW then SetValuesFromResponsesDO; + ActiveControl := cboOPDietAvail; end; end; @@ -517,16 +568,21 @@ 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 GetMealTime = '' then SetError(TX_ELTIME); if not calELStart.IsValid then SetError(TX_ELNOSTART); - if not calELStop.IsValid then SetError(TX_ELNOSTOP); if calELStart.FMDateTime < FMToday then SetError(TX_ELSTARTLT); - if calELStop.FMDateTime < FMToday then SetError(TX_ELSTOPLT); - if calELStop.FMDateTime < calELStart.FMDateTime then SetError(TX_ELSTOPSTART); if calELStart.FMDateTime > FMDateTimeOffsetBy(FMToday, 30) then SetError(TX_ELSTART30); - if calELStop.FMDateTime > FMDateTimeOffsetBy(FMToday, 30) then SetError(TX_ELSTOP30); + 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); @@ -539,6 +595,7 @@ begin if not ContainsVisibleChar(txtAOComment.Text) then SetError(TX_AONONE); - end; -{ TODO -oRich V. -cOutpatient Meals : Add any required Outpatient Meals validation code here } + if not OrderForInpatient then + if not calOPAOStart.IsValid then SetError(TX_BAD_START); + end; if nbkDiet.ActivePage = pgeOutPt then begin @@ -580,13 +637,30 @@ FTabChanging := True; if Length(memOrder.Text) > 0 then - 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; + 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; @@ -594,7 +668,22 @@ 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; @@ -603,5 +692,36 @@ begin AllowQuickOrder := True; - OrderMessage(CurrentDietText); + 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'); @@ -615,12 +735,19 @@ if nbkDiet.ActivePage = pgeTubefeeding then begin -{ TODO -oRich V. -cOutpatient Meals : Prompt for which recurring meal(s) to apply this order against } if not OrderForInpatient then begin - // get list of existing OP recurring meals - // if none, then exit with message - // if some, display and allow selection of multiple dates/times - // set different dialog/display group? - end; + 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 @@ -644,19 +771,32 @@ if nbkDiet.ActivePage = pgeEarlyLate then begin -{ TODO -oRich V. -cOutpatient Meals : Prompt for which recurring meal to apply this order against } if not OrderForInpatient then - begin - // get list of existing OP recurring meals - // if none, then exit with message - // if some, display and allow selection of one and only one - // set different dialog/display group? - end + 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); - Exit; - end; + 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(''); @@ -678,12 +818,19 @@ if nbkDiet.ActivePage = pgeAdditional then begin -{ TODO -oRich V. -cOutpatient Meals : Prompt for which recurring meal(s) to apply this order against } - if not OrderForInpatient then - begin - // get list of existing OP recurring meals - // if none, then exit with message - // if some, display and allow selection of multiple dates/times - // set different dialog/display group? - end; + 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(''); @@ -694,25 +841,18 @@ if nbkDiet.ActivePage = pgeOutPt then begin - OrderMessage(CurrentDietText); + 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 OP MEAL' then // Recurring meal - begin - AllowQuickOrder := True; - ResetControlsOP; - LoadDietQuickList(cboOPDietAvail.Items, 'MEAL'); // use D.G. short name here - cboOPDietAvail.InsertSeparator; - cboOPDietAvail.InitLongList(''); - { 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); - end - else if uDialogName = 'FHW SPECIAL MEAL' then // Special meal + if uDialogName = 'FHW SPECIAL MEAL' then // Special meal begin AllowQuickOrder := False; ResetControlsOP; - cboOPDietAvail.InitLongList(''); + cboOPDietAvail.Items.AddStrings(SubsetOfOPDiets); { TODO -oRich V. -cOutpatient Meals : Need to DC Tubefeeding order for OP meals? } chkOPCancelTubefeeding.State := cbGrayed; @@ -723,6 +863,23 @@ pgeAdditional.TabVisible := False; pgeEarlyLate.TabVisible := False; - cboOPDietAvail.SelectByIEN(uDietParams.RegIEN); + 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; @@ -802,4 +959,5 @@ InfoBox(Piece(ADiet,'^',2), TC_DIET_ERR, MB_OK); cboDietAvail.ItemIndex := -1; + Changing := False; Exit; end; @@ -935,4 +1093,5 @@ TFClearGrid; chkCancelTrays.Checked := False; + calOPTFStart.Text := ''; txtTFComment.Text := ''; end; @@ -973,4 +1132,9 @@ 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; @@ -1114,5 +1278,5 @@ begin grdSelected.Cells[2, ARow] := Piece(x, U, 2); - grdSelected.Cells[3, ARow] := Piece(x, U, 1) + 'cc'; + grdSelected.Cells[3, ARow] := Piece(x, U, 1) + 'ml'; end else grdSelected.Cells[3, ARow] := ''; @@ -1268,4 +1432,9 @@ 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; @@ -1323,6 +1492,11 @@ if radLT3.Caption = AResponse.IValue then radLT3.Checked := True; end; - SetControl(calELStart, 'START', 1); - SetControl(calELStop, 'STOP', 1); + 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); @@ -1403,13 +1577,46 @@ lblNoTimes.Visible := not HasTimes; end; - -begin - inherited; +var + AMeal: string; +begin + inherited; + Changing := True; case grpMeal.ItemIndex of - 0: SetMealTimes(uDietParams.BTimes); - 1: SetMealTimes(uDietParams.NTimes); - 2: SetMealTimes(uDietParams.ETimes); - else SetMealTimes(''); - end; + 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; @@ -1445,5 +1652,6 @@ begin inherited; - if (Length(calELStop.Text) > 0) and (calELStop.Text = calELStart.Text) + if not OrderForInpatient then SetEnableDOW(False) + else if (Length(calELStop.Text) > 0) and (calELStop.Text = calELStart.Text) then SetEnableDOW(False) else SetEnableDOW(True); @@ -1478,4 +1686,9 @@ 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); @@ -1525,4 +1738,5 @@ begin txtAOComment.Text := ''; + calOPAOStart.Text := ''; end; @@ -1532,4 +1746,6 @@ ResetControlsAO; Responses.SetControl(txtAOComment, 'COMMENT', 1); + //Responses.SetControl(calOPAOStart, 'DATETIME', 1); + Responses.SetControl(cboOPAORecurringMeals, 'DATETIME', 1); Changing := False; AOChange(Self); @@ -1542,15 +1758,14 @@ 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.cboOPDietAvailNeedData(Sender: TObject; const StartFrom: string; - Direction, InsertAt: Integer); -begin - inherited; - cboOPDietAvail.ForDataUse(SubsetOfOPDiets(StartFrom, Direction)); -end; procedure TfrmODDiet.cboOPDietAvailMouseClick(Sender: TObject); @@ -1566,4 +1781,10 @@ 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 @@ -1592,6 +1813,6 @@ OPChange(Sender); end; {if cboOPDietAvail} + OPChange(Sender); cboOPDietAvail.ItemIndex := -1; - OPChange(Sender); end; @@ -1643,5 +1864,4 @@ procedure TfrmODDiet.SetValuesFromResponsesOP; var - //AnInstance: Integer; AResponse: TResponse; ADiet: string; @@ -1651,22 +1871,4 @@ 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_OP_DIET_ERR, MB_OK); - cboOPDietAvail.ItemIndex := -1; - Exit; - end; - lstOPDietSelect.Items.Add(ADiet); - end; - AnInstance := NextInstance('ORDERABLE', AnInstance); - end; {while AnInstance - ORDERABLE}*) - AResponse := FindResponseByName('ORDERABLE', 1); if AResponse <> nil then @@ -1677,4 +1879,5 @@ InfoBox(Piece(ADiet,'^',2), TC_OP_DIET_ERR, MB_OK); cboOPDietAvail.ItemIndex := -1; + Changing := False; Exit; end; @@ -1721,4 +1924,5 @@ begin inherited; + if Changing then exit; if FChangeStop then calOPStop.Text := calOPStart.Text @@ -1727,18 +1931,67 @@ 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); -begin - inherited; - if (Length(calOPStop.Text) > 0) and (calOPStop.Text = calOPStart.Text) - then SetEnableOPDOW(False) - else SetEnableOPDOW(True); +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); -begin - inherited; - if (Length(calOPStop.Text) > 0) and (calOPStop.FMDateTime = calOPStart.FMDateTime) - then SetEnableOPDOW(False) - else SetEnableOPDOW(True); +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; @@ -1752,5 +2005,5 @@ 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 5 available OP diets + // 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)); @@ -1765,5 +2018,6 @@ begin x := GetOPDaysOfWeek; - if Length(x) > 0 then Responses.Update('SCHEDULE', 1, x, x); + 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); @@ -1784,14 +2038,25 @@ end; -procedure TfrmODDiet.SetEnableOPDOW(AllowUse: Boolean); -begin +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; - chkOPTuesday.Enabled := AllowUse; - chkOPWednesday.Enabled := AllowUse; - chkOPThursday.Enabled := AllowUse; - chkOPFriday.Enabled := AllowUse; - chkOPSaturday.Enabled := AllowUse; - chkOPSunday.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; @@ -1896,5 +2161,5 @@ // check if late tray should be ordered AResponse := Responses.FindResponseByName('ORDERABLE', 1); - if (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then + if (Self.EvtID = 0) and (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then begin AResponse := Responses.FindResponseByName('START', 1); @@ -1915,5 +2180,5 @@ // check if late tray should be ordered AResponse := Responses.FindResponseByName('ORDERABLE', 1); - if (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then + if (Self.EvtID = 0) and (AResponse <> nil) and (Copy(AResponse.EValue, 1, 3) <> 'NPO') then begin AResponse := Responses.FindResponseByName('START', 1); @@ -1930,7 +2195,14 @@ if NewOrder.ID <> '' then begin - if (Encounter.Provider = User.DUZ) and User.CanSignOrders - then CanSign := CH_SIGN_YES - else CanSign := CH_SIGN_NA; + 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)) @@ -1955,4 +2227,29 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDietLT.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDietLT.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDietLT.pas (revision 460) @@ -75,7 +75,7 @@ begin TimePart := Frac(x); - if TimePart > 0.12 then + if TimePart > 0.1159 then begin - x := x - 0.12; + if TimePart > 0.1259 then x := x - 0.12; Suffix := 'P' end @@ -127,23 +127,33 @@ (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 6), 0) / 10000)) then Meal := 'E'; if Meal = #0 then Exit; - // 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; 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) then Meal := #0; - 'N': if TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 3), 0) / 10000) then Meal := #0; - 'E': if TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 5), 0) / 10000) then Meal := #0; + '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); @@ -153,15 +163,11 @@ begin FOutpatient := IsOutpatient; - if not IsOutpatient then - begin - 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; - end - else GroupBox1.Visible := False; + 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 @@ -174,15 +180,10 @@ if YesPressed then begin - if not IsOutpatient 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; - end - else - LateTrayFields.LateTime := FMTimeToAMPM(FMToday + TimePart); + 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; {if YesPressed} + end; end; {with frmODDietLT} finally Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas (revision 460) @@ -339,4 +339,5 @@ 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; @@ -490,5 +491,8 @@ end; with TORComboBox(Editor) do + begin Items.AddStrings(TStrings(TopTSList)); + LongList := false; + end; end else TORComboBox(Editor).OnNeedData := LookupNeedData; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.dfm (revision 460) @@ -374,4 +374,5 @@ OnExit = cboAvailTestExit OnNeedData = cboAvailTestNeedData + CharsNeedMatch = 1 end object cboFrequency: TORComboBox @@ -397,4 +398,5 @@ TabOrder = 16 OnChange = cboFrequencyChange + CharsNeedMatch = 1 end object cboCollSamp: TORComboBox @@ -423,4 +425,5 @@ OnKeyPause = cboCollSampKeyPause OnMouseClick = cboCollSampMouseClick + CharsNeedMatch = 1 end object cboSpecimen: TORComboBox @@ -451,4 +454,5 @@ OnKeyPause = cboSpecimenKeyPause OnMouseClick = cboSpecimenMouseClick + CharsNeedMatch = 1 end object cboUrgency: TORComboBox @@ -474,4 +478,5 @@ TabOrder = 3 OnChange = cboUrgencyChange + CharsNeedMatch = 1 end object txtAddlComment: TCaptionEdit @@ -533,4 +538,5 @@ OnChange = cboCollTimeChange OnExit = cboCollTimeExit + CharsNeedMatch = 1 end object cboCollType: TORComboBox @@ -556,4 +562,5 @@ TabOrder = 11 OnChange = cboCollTypeChange + CharsNeedMatch = 1 end object dlgLabCollTime: TORDateTimeDlg Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.pas (revision 460) @@ -181,5 +181,5 @@ uses rODBase, rODLab, uCore, rCore, fODLabOthCollSamp, fODLabOthSpec, fODLabImmedColl, fLabCollTimes, - rOrders, uODBase, fRptBox; + rOrders, uODBase, fRptBox, fFrame; @@ -208,4 +208,5 @@ AList: TStringList; begin + frmFrame.pnlVisit.Enabled := false; AutoSizeDisabled := True; inherited; @@ -417,5 +418,5 @@ TestID := StrToInt(LabTestIEN); TestName := Piece(ExtractDefault(LoadData, 'Test Name'),U,1); - LabSubscript := Piece(ExtractDefault(LoadData, 'Test Name'),U,2); + LabSubscript := Piece(ExtractDefault(LoadData, 'Item ID'),U,2); TestReqComment := ExtractDefault(LoadData, 'ReqCom'); if Length(ExtractDefault(LoadData, 'Unique CollSamp')) > 0 then UniqueCollSamp := True; @@ -826,7 +827,13 @@ 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 @@ -877,4 +884,5 @@ 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; @@ -1527,4 +1535,5 @@ inherited; if FCmtTypes <> nil then FCmtTypes.Free; + frmFrame.pnlVisit.Enabled := true; end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedFA.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedFA.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedFA.dfm (revision 460) @@ -5,4 +5,5 @@ Height = 205 Caption = 'Formulary Alternatives' + FormStyle = fsStayOnTop OnCreate = FormCreate PixelsPerInch = 96 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.dfm (revision 460) @@ -1,8 +1,8 @@ inherited frmODMedIV: TfrmODMedIV - Left = 321 - Top = 199 + Left = 587 + Top = 331 Width = 610 Height = 341 - Caption = 'IV Fluid Order' + Caption = 'Infusion Order' OnKeyDown = FormKeyDown PixelsPerInch = 96 @@ -11,7 +11,7 @@ Left = 6 Top = 196 - Width = 63 - Height = 13 - Caption = 'Infusion Rate' + Width = 96 + Height = 13 + Caption = 'Infusion Rate (ml/hr)' end object lblPriority: TLabel [1] @@ -30,9 +30,9 @@ end object lblAmount: TLabel [3] - Left = 333 + Left = 328 Top = 6 - Width = 74 - Height = 13 - Caption = 'Volume/Strenth' + Width = 80 + Height = 13 + Caption = 'Volume/Strength' WordWrap = True end @@ -51,59 +51,5 @@ Caption = 'Duration or Total Volume' end - object Label1: TStaticText [6] - Left = 100 - Top = 213 - Width = 28 - Height = 17 - Caption = 'ml/hr' - TabOrder = 15 - end - object cboAdditive: TORComboBox [7] - Left = 6 - Top = 20 - Width = 200 - Height = 125 - Style = orcsSimple - 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 [8] - Left = 7 - Top = 3 - Width = 200 - Height = 21 - TabHeight = 15 - TabOrder = 13 - Tabs.Strings = ( - ' Solutions ' - ' Additives ') - TabIndex = 0 - TabStop = False - OnChange = tabFluidChange - end - inherited memOrder: TCaptionMemo - Top = 255 - Width = 475 - TabOrder = 11 - end - object txtRate: TCaptionEdit [10] + object txtRate: TCaptionEdit [6] Left = 6 Top = 210 @@ -111,9 +57,10 @@ Height = 21 AutoSelect = False - TabOrder = 6 + TabOrder = 5 OnChange = ControlChange + OnExit = txtRateExit Caption = 'Infusion Rate' end - object cboPriority: TORComboBox [11] + object cboPriority: TORComboBox [7] Left = 134 Top = 210 @@ -135,9 +82,9 @@ Sorted = False SynonymChars = '<>' - TabOrder = 7 + TabOrder = 6 OnChange = ControlChange CharsNeedMatch = 1 end - object grdSelected: TCaptionStringGrid [12] + object grdSelected: TCaptionStringGrid [8] Left = 214 Top = 20 @@ -152,5 +99,5 @@ Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected] ScrollBars = ssVertical - TabOrder = 3 + TabOrder = 2 OnDrawCell = grdSelectedDrawCell OnKeyPress = grdSelectedKeyPress @@ -158,5 +105,5 @@ Caption = 'Selected Solution and Additives' end - object cmdRemove: TButton [13] + object cmdRemove: TButton [9] Left = 443 Top = 99 @@ -164,8 +111,8 @@ Height = 18 Caption = 'Remove' - TabOrder = 4 + TabOrder = 3 OnClick = cmdRemoveClick end - object memComments: TCaptionMemo [14] + object memComments: TCaptionMemo [10] Left = 214 Top = 120 @@ -175,9 +122,9 @@ 'memComments') ScrollBars = ssVertical - TabOrder = 5 + TabOrder = 4 OnChange = ControlChange Caption = 'Comments' end - object txtSelected: TCaptionEdit [15] + object txtSelected: TCaptionEdit [11] Tag = -1 Left = 416 @@ -187,5 +134,5 @@ Ctl3D = False ParentCtl3D = False - TabOrder = 1 + TabOrder = 0 Text = 'meq.' Visible = False @@ -194,5 +141,5 @@ Caption = 'Volume' end - object cboSelected: TCaptionComboBox [16] + object cboSelected: TCaptionComboBox [12] Tag = -1 Left = 460 @@ -204,5 +151,5 @@ ItemHeight = 13 ParentCtl3D = False - TabOrder = 2 + TabOrder = 1 Visible = False OnChange = cboSelectedChange @@ -210,44 +157,22 @@ Caption = 'Volume/Strength' end + inherited memOrder: TCaptionMemo + Top = 255 + Width = 475 + TabOrder = 10 + end inherited cmdAccept: TButton Left = 495 Top = 255 - TabOrder = 9 + TabOrder = 8 end inherited cmdQuit: TButton Left = 495 Top = 282 - TabOrder = 10 + TabOrder = 9 end inherited pnlMessage: TPanel Top = 237 - TabOrder = 12 - end - object cboSolution: TORComboBox - Left = 6 - Top = 19 - Width = 200 - Height = 164 - Style = orcsSimple - 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 = 14 - OnExit = cboSolutionExit - OnMouseClick = cboSolutionMouseClick - OnNeedData = cboSolutionNeedData - CharsNeedMatch = 1 + TabOrder = 11 end object pnlXDuration: TPanel @@ -257,10 +182,10 @@ Height = 21 BevelOuter = bvNone - TabOrder = 8 + TabOrder = 7 OnEnter = pnlXDurationEnter DesignSize = ( 121 21) - object btnXDuration: TSpeedButton + object btnXDuration: TBitBtn Left = 69 Top = 1 @@ -269,4 +194,6 @@ Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'days' + TabOrder = 1 + OnClick = btnXDurationClick Glyph.Data = { AE000000424DAE0000000000000076000000280000000E000000070000000100 @@ -279,6 +206,4 @@ NumGlyphs = 2 Spacing = 0 - Transparent = False - OnClick = btnXDurationClick end object txtXDuration: TCaptionEdit @@ -293,4 +218,83 @@ 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.pas (revision 460) @@ -9,10 +9,6 @@ type TfrmODMedIV = class(TfrmODBase) - tabFluid: TTabControl; - cboSolution: TORComboBox; lblInfusionRate: TLabel; txtRate: TCaptionEdit; - lblPriority: TLabel; - cboPriority: TORComboBox; lblComponent: TLabel; lblAmount: TLabel; @@ -21,8 +17,6 @@ lblComments: TLabel; memComments: TCaptionMemo; - cboAdditive: TORComboBox; txtSelected: TCaptionEdit; cboSelected: TCaptionComboBox; - Label1: TStaticText; popDuration: TPopupMenu; popML: TMenuItem; @@ -33,5 +27,11 @@ txtXDuration: TCaptionEdit; lblLimit: TLabel; - btnXDuration: TSpeedButton; + btnXDuration: TBitBtn; + pnlCombo: TPanel; + cboAdditive: TORComboBox; + tabFluid: TTabControl; + cboSolution: TORComboBox; + lblPriority: TLabel; + cboPriority: TORComboBox; procedure FormCreate(Sender: TObject); procedure tabFluidChange(Sender: TObject); @@ -64,4 +64,5 @@ procedure pnlXDurationEnter(Sender: TObject); procedure txtXDurationExit(Sender: TObject); + procedure txtRateExit(Sender: TObject); private FInpatient: Boolean; @@ -84,5 +85,5 @@ {$R *.DFM} -uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid; +uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid, fFrame; const @@ -129,4 +130,5 @@ Restriction: string; begin + frmFrame.pnlVisit.Enabled := false; inherited; AllowQuickOrder := True; @@ -155,4 +157,5 @@ with grdSelected do for i := 0 to RowCount - 1 do TIVComponent(Objects[0, i]).Free; inherited; + frmFrame.pnlVisit.Enabled := True; end; @@ -454,7 +457,6 @@ end; end; + Application.ProcessMessages; //CQ: 10157 ClickOnGridCell; - if cboAdditive.Visible then - ActiveControl := cboAdditive; ControlChange(Sender); end; @@ -522,4 +524,5 @@ Col := 1; end; + Application.ProcessMessages; //CQ: 10157 ClickOnGridCell; ControlChange(Sender); @@ -550,4 +553,6 @@ Show; SetFocus; + if AControl is TComboBox then //CQ: 10157 + TComboBox(AControl).DroppedDown := True; end; end; @@ -855,8 +860,27 @@ 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 @@ -897,3 +921,34 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmODMedNVA: TfrmODMedNVA - Left = 168 - Top = 36 + Left = 100 + Top = 167 Width = 632 Height = 536 @@ -57,4 +57,6 @@ Height = 133 Align = alTop + BevelInner = bvLowered + BevelOuter = bvSpace Columns = < item @@ -63,4 +65,5 @@ ColumnClick = False HideSelection = False + HotTrack = True OwnerData = True ParentShowHint = False @@ -71,5 +74,9 @@ ViewStyle = vsReport OnChange = lstChange + OnClick = ListViewClick OnData = lstQuickData + OnEditing = ListViewEditing + OnEnter = ListViewEnter + OnResize = ListViewResize Caption = 'Quick Orders' end @@ -215,5 +222,4 @@ OnExit = cboDosageExit CharsNeedMatch = 1 - UniqueAutoComplete = True end object cboRoute: TORComboBox @@ -245,5 +251,4 @@ OnExit = cboRouteExit CharsNeedMatch = 1 - UniqueAutoComplete = True end object cboSchedule: TORComboBox @@ -273,5 +278,4 @@ OnExit = cboScheduleExit CharsNeedMatch = 1 - UniqueAutoComplete = True end object chkPRN: TCheckBox @@ -285,4 +289,5 @@ ParentColor = False TabOrder = 5 + OnClick = chkPRNClick end end @@ -308,5 +313,5 @@ object Label1: TLabel Left = 5 - Top = 50 + Top = 47 Width = 108 Height = 13 @@ -319,4 +324,10 @@ Height = 13 Caption = 'Start Date:' + end + object Image1: TImage + Left = 25 + Top = 17 + Width = 31 + Height = 31 end object memComment: TCaptionMemo @@ -354,8 +365,8 @@ end object lbStatements: TORListBox - Left = 8 - Top = 62 + Left = 7 + Top = 59 Width = 603 - Height = 76 + Height = 81 Style = lbOwnerDrawFixed Anchors = [akLeft, akTop, akRight] @@ -370,9 +381,23 @@ 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 = 461 + Top = 463 Width = 72 Height = 21 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.pas (revision 460) @@ -1,5 +1,5 @@ unit fODMedNVA; -interface +interface uses @@ -41,4 +41,6 @@ Label2: TLabel; btnSelect: TButton; + Image1: TImage; + memDrugMsg: TMemo; procedure FormCreate(Sender: TObject); procedure btnSelectClick(Sender: TObject); @@ -68,5 +70,5 @@ procedure cboScheduleClick(Sender: TObject); procedure cboRouteExit(Sender: TObject); - + procedure DispOrderMessage(const AMessage: string); @@ -89,4 +91,5 @@ Change: TItemChange); procedure FormKeyPress(Sender: TObject; var Key: Char); + private {selection} @@ -121,4 +124,5 @@ FPtInstruct: string; FAltChecked: Boolean; + FShrinkDrugMsg: boolean; FQOQuantity: Double; FQODosage: string; @@ -129,4 +133,5 @@ FDisabledCancelButton: TButton; FShrinked: boolean; + FQOInitial: boolean; FRemoveText : Boolean; {selection} @@ -291,5 +296,5 @@ 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 --------------------------------------------------------- } @@ -300,19 +305,26 @@ var ListCount: Integer; - Restriction, x : string; -begin + 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 - InfoBox(Restriction, TC_RESTRICT, MB_OK); - Close; - Exit; - end; - end; + 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; @@ -363,4 +375,5 @@ LoadOTCStatements(lbStatements.Items); FRemoveText := True; + FShrinkDrugMsg := False; end; @@ -376,4 +389,5 @@ // TAccessibleStringGrid.UnwrapControl(grdDoses); inherited; + frmFrame.pnlVisit.Enabled := true; end; @@ -401,4 +415,5 @@ procedure TfrmODMedNVA.SetupDialog(OrderAction: Integer; const ID: string); var + //AnInstr: string; OrderID: string; begin @@ -429,5 +444,18 @@ 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; @@ -527,5 +555,4 @@ end; - { Navigate medication selection lists ------------------------------------------------------- } @@ -607,6 +634,9 @@ 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; @@ -803,5 +833,31 @@ Changing := True; ResetOnMedChange; - if (FActiveMedList = lstAll) and (lstAll.Selected <> nil) then // orderable item + 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); @@ -831,5 +887,5 @@ ShowMedFields; end - else // no selection + else // no selection begin MessageBeep(0); @@ -842,5 +898,4 @@ else ShowMedSelect; // show the selection fields FNoZERO := False; - end; @@ -848,4 +903,8 @@ begin cboDosage.Items.Clear; + chkPRN.Checked := False; + cboSchedule.ItemIndex := -1; + cboSchedule.Text := ''; // leave items intact + memComment.Lines.Clear; cboDosage.Text := ''; cboRoute.Items.Clear; @@ -867,23 +926,5 @@ QOPiUnChk := False; PKIEnviron := False; - if GetPKISite and GetPKIUse then //PKI check for crypto object on workstation - begin - try //PKI object creation - crypto := CoXuDigSigS.Create; - crypto.GetCSP; - StatusText(crypto.Reason); - PKIEnviron := True; - except - on E: Exception do - begin - {ShowMessage('An error has been encountered while trying to create PKI environment: '+ E.Message + - '. This order will be processed without Digital Signature encryption.');} - PKIEnviron := False; - end; - end; - crypto := nil; - end; - if PKIEnviron = False then - if GetPKISite then PKIEnviron := True; + if GetPKISite then PKIEnviron := True; with CtrlInits do begin @@ -950,5 +991,6 @@ // end; pnlMessage.TabOrder := cboDosage.TabOrder + 1; - OrderMessage(TextOf('Message')); + + // DispOrderMessage(TextOf('Message')); end; end; @@ -971,4 +1013,5 @@ with cboDosage do if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + SetControl(cboRoute, 'ROUTE', i); with cboRoute do @@ -1001,5 +1044,5 @@ else SetDosage(IValueFor('INSTR', 1)); - SetControl(cboRoute, 'ROUTE', 1); + SetControl(cboDosage, 'DOSAGE', 1); // CQ: HDS00007776 SetSchedule(IValueFor('SCHEDULE', 1)); if (cboSchedule.Text = '') and FIsQuickOrder then @@ -1174,4 +1217,5 @@ NonPRNPart: string; begin + cboSchedule.ItemIndex := -1; if Pos('PRN', x) > 0 then @@ -1179,14 +1223,35 @@ NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); cboSchedule.SelectByID(NonPRNPart); - if cboSchedule.ItemIndex > -1 then chkPRN.Checked := True else - begin - cboSchedule.SelectByID(x); - if cboSchedule.ItemIndex < 0 then cboSchedule.Text := x; - end; + 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 cboSchedule.Text := 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; @@ -1246,8 +1311,7 @@ var DispDrug: Integer; - x: string; -begin - inherited; - UpdateRelated(False); +begin + inherited; +UpdateRelated(False); DispDrug := StrToIntDef(ValueOf(FLD_DRUG_ID), 0); if cboDosage.Text = '' then //cla 3/18/04 @@ -1256,13 +1320,15 @@ cboDosage.ItemIndex := -1; end; + { hds8084 if DispDrug > 0 then begin if not FSuppressMsg then begin pnlMessage.TabOrder := cboDosage.TabOrder + 1; - OrderMessage(DispenseMessage(DispDrug)); + DispOrderMessage(DispenseMessage(DispDrug)); end; x := QuantityMessage(DispDrug); end else x := ''; + } with cboDosage do if (ItemIndex > -1) and (Piece(Items[ItemIndex], U, 3) = 'NF') @@ -1589,5 +1655,5 @@ 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); + x := ValueOf(FLD_SCHEDULE); Responses.Update('SCHEDULE', 1, x, x); // CQ:7297, 7534 end; end; {case TabDose.TabIndex} @@ -1598,5 +1664,5 @@ 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); @@ -1697,5 +1763,5 @@ if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); FLD_SCHEDULE : begin - Result := cboSchedule.Text; + Result := UpperCase(cboSchedule.Text); if chkPRN.Checked then Result := Result + ' PRN'; if UpperCase(Copy(Result, Length(Result) - 6, Length(Result))) = 'PRN PRN' @@ -1768,11 +1834,11 @@ if Length(CurSchedule)=0 then Exit; ASchedule := Trim(CurSchedule); - if (Pos('^',ASchedule)=0) then + {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 - else if (Pos('^',ASchedule)>0) then + end } + if (Pos('^',ASchedule)>0) then begin PrnPos := Pos('PRN',ASchedule); @@ -1929,4 +1995,5 @@ begin Val(TabletNum, ie, code); + if ie = 0 then begin end; if code <> 0 then Exit; @@ -1967,10 +2034,32 @@ procedure TfrmODMedNVA.chkPRNClick(Sender: TObject); -begin - inherited; - if chkPRN.Checked then lblAdminTime.Caption := '' +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); @@ -2194,3 +2283,29 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.dfm (revision 460) @@ -1,29 +1,45 @@ -inherited frmODMedOIFA: TfrmODMedOIFA - Width = 316 +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 = 8 - Top = 8 - Width = 273 + 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 = 8 - Top = 127 - Width = 250 + Left = 0 + Top = 134 + Width = 305 Height = 17 + Align = alBottom Caption = 'Do you wish to use the selected alternative instead?' - TabOrder = 3 + TabOrder = 1 end object lstFormAlt: TORListBox - Left = 8 - Top = 22 - Width = 292 - Height = 97 + Left = 0 + Top = 13 + Width = 305 + Height = 121 + Align = alClient ItemHeight = 13 ParentShowHint = False @@ -36,24 +52,33 @@ 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 + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas (revision 460) @@ -5,11 +5,12 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - fAutoSz, StdCtrls, ORCtrls; + StdCtrls, ORCtrls, ExtCtrls, fAutoSz; type - TfrmODMedOIFA = class(TfrmAutoSz) + TfrmODMedOIFA = class(TForm) Label1: TLabel; lstFormAlt: TORListBox; Label2: TStaticText; + btnPanel: TPanel; cmdYes: TButton; cmdNo: TButton; @@ -18,4 +19,6 @@ procedure cmdNoClick(Sender: TObject); procedure lstFormAltClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private FSelected: string; @@ -30,5 +33,5 @@ {$R *.DFM} -uses ORFn, rODMeds; +uses ORFn, rODMeds, rMisc; procedure CheckFormularyOI(var AnIEN: Integer; var AName: string; ForInpatient: Boolean); @@ -130,3 +133,16 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.dfm (revision 460) @@ -1,12 +1,9 @@ inherited frmODMeds: TfrmODMeds - Left = 202 - Top = 61 + Left = 519 + Top = 204 Width = 584 - Height = 494 + Height = 515 HorzScrollBar.Range = 558 - HorzScrollBar.Visible = True VertScrollBar.Range = 399 - VertScrollBar.Visible = True - AutoScroll = False Caption = 'Medication Order' Constraints.MinHeight = 325 @@ -15,5 +12,5 @@ DesignSize = ( 576 - 460) + 488) PixelsPerInch = 96 TextHeight = 13 @@ -22,5 +19,5 @@ Top = 34 Width = 580 - Height = 392 + Height = 413 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone @@ -71,5 +68,5 @@ Top = 137 Width = 580 - Height = 255 + Height = 276 Align = alClient BevelInner = bvLowered @@ -101,5 +98,5 @@ end inherited memOrder: TCaptionMemo - Top = 427 + Top = 448 Width = 502 Anchors = [akLeft, akRight, akBottom] @@ -122,5 +119,5 @@ object btnSelect: TButton [3] Left = 515 - Top = 427 + Top = 448 Width = 72 Height = 21 @@ -134,5 +131,5 @@ inherited cmdAccept: TButton Left = 514 - Top = 427 + Top = 448 Anchors = [akRight, akBottom] TabOrder = 6 @@ -142,5 +139,5 @@ inherited cmdQuit: TButton Left = 514 - Top = 452 + Top = 473 Width = 51 Anchors = [akRight, akBottom] @@ -159,5 +156,5 @@ Top = 34 Width = 580 - Height = 392 + Height = 413 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone @@ -170,5 +167,5 @@ Top = 0 Width = 580 - Height = 173 + Height = 184 Align = alClient Constraints.MinHeight = 80 @@ -176,5 +173,5 @@ DesignSize = ( 580 - 173) + 184) object lblRoute: TLabel Left = 280 @@ -197,10 +194,10 @@ end object txtNSS: TLabel - Left = 452 + Left = 442 Top = 22 - Width = 76 + Width = 71 Height = 13 Anchors = [akTop, akRight] - Caption = '(Non-standard?)' + Caption = '(Day-Of-Week)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue @@ -217,5 +214,5 @@ Top = 36 Width = 580 - Height = 132 + Height = 143 Anchors = [akLeft, akTop, akRight, akBottom] ColCount = 6 @@ -280,5 +277,5 @@ Top = 36 Width = 279 - Height = 132 + Height = 143 Anchors = [akLeft, akTop, akRight, akBottom] Style = orcsSimple @@ -302,4 +299,5 @@ OnClick = cboDosageClick OnExit = cboDosageExit + OnKeyUp = cboDosageKeyUp CharsNeedMatch = 1 UniqueAutoComplete = True @@ -309,5 +307,5 @@ Top = 36 Width = 113 - Height = 132 + Height = 143 Anchors = [akTop, akRight, akBottom] Style = orcsSimple @@ -339,5 +337,5 @@ Top = 36 Width = 178 - Height = 132 + Height = 143 Anchors = [akTop, akRight, akBottom] Style = orcsSimple @@ -426,4 +424,5 @@ OnExit = cboXDosageExit OnKeyDown = memMessageKeyDown + OnKeyUp = cboXDosageKeyUp CharsNeedMatch = 1 UniqueAutoComplete = True @@ -546,4 +545,5 @@ Width = 38 Height = 19 + Hint = 'A duration must be defined if using "Then" as a sequence.' Caption = 'then' Glyph.Data = { @@ -556,6 +556,14 @@ 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 @@ -598,4 +606,5 @@ OnChange = cboXScheduleChange OnClick = cboXScheduleClick + OnEnter = cboXScheduleEnter OnExit = cboXScheduleExit OnKeyDown = memMessageKeyDown @@ -617,12 +626,12 @@ object pnlBottom: TPanel Left = 0 - Top = 173 + Top = 184 Width = 580 - Height = 219 + Height = 229 Align = alBottom TabOrder = 6 DesignSize = ( 580 - 219) + 229) object lblComment: TLabel Left = 4 @@ -666,6 +675,6 @@ end object Image1: TImage - Left = 1 - Top = 183 + Left = 5 + Top = 177 Width = 31 Height = 31 @@ -686,5 +695,5 @@ Top = 2 Width = 513 - Height = 44 + Height = 43 Anchors = [akLeft, akTop, akRight] ScrollBars = ssVertical @@ -707,7 +716,9 @@ Width = 60 Height = 21 + AutoSize = False TabOrder = 1 Text = '0' OnChange = txtSupplyChange + OnClick = txtSupplyClick Caption = 'Days Supply' end @@ -728,7 +739,9 @@ Width = 60 Height = 21 + AutoSize = False TabOrder = 3 Text = '0' OnChange = txtQuantityChange + OnClick = txtQuantityClick Caption = 'Quantity' end @@ -750,7 +763,9 @@ Width = 30 Height = 21 + AutoSize = False TabOrder = 5 Text = '0' OnChange = ControlChange + OnClick = txtRefillsClick Caption = 'Refills' end @@ -817,5 +832,5 @@ ItemTipColor = clWindow ItemTipEnable = True - ListItemsOnly = False + ListItemsOnly = True LongList = False LookupPiece = 0 @@ -825,5 +840,4 @@ SynonymChars = '<>' TabOrder = 10 - Text = 'ROUTINE' OnChange = ControlChange CharsNeedMatch = 1 @@ -842,10 +856,9 @@ end object lblAdminTime: TStaticText - Left = 267 - Top = 104 + Left = 262 + Top = 120 Width = 4 Height = 4 TabOrder = 16 - Visible = False end object stcPI: TStaticText @@ -885,7 +898,7 @@ object memDrugMsg: TMemo Left = 37 - Top = 183 + Top = 176 Width = 533 - Height = 34 + Height = 51 Anchors = [akLeft, akRight, akBottom] Color = clCream Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.pas (revision 460) @@ -86,4 +86,5 @@ memDrugMsg: TMemo; txtNSS: TLabel; + SpeedButton1: TSpeedButton; procedure FormCreate(Sender: TObject); procedure btnSelectClick(Sender: TObject); @@ -186,4 +187,13 @@ 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 @@ -236,8 +246,8 @@ FOrigiMsgDisp: boolean; FNSSOther: boolean; - FFromClick: boolean; + {selection} FShowPnlXScheduleOk : boolean; FRemoveText : Boolean; - {selection} + FSmplPRNChkd: Boolean; procedure ChangeDelayed; function FindQuickOrder(const x: string): Integer; @@ -302,8 +312,10 @@ // 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); @@ -319,5 +331,5 @@ uses rCore, uCore, ORFn, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA, - uAccessibleStringGrid, uOrders, fOtherSchedule, StrUtils; + uAccessibleStringGrid, uOrders, fOtherSchedule, StrUtils, fFrame; const @@ -329,4 +341,5 @@ COL_DURATION = 4; COL_SEQUENCE = 5; + COL_CHKXPRN = 6; VAL_DOSAGE = 10; VAL_ROUTE = 20; @@ -334,4 +347,5 @@ VAL_DURATION = 40; VAL_SEQUENCE = 50; + VAL_CHKXPRN = 60; TAB = #9; {field identifiers} @@ -387,4 +401,5 @@ 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'; @@ -422,8 +437,10 @@ 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 @@ -456,5 +473,7 @@ {if not FInptDlg then } Responses.SetPromptFormat('INSTR', '@'); StatusText('Loading Schedules'); - LoadSchedules(cboSchedule.Items, FInptDlg); + //if (Self.EvtID > 0) then LoadSchedules(cboSchedule.Items) + //else LoadSchedules(cboSchedule.Items, FInptDlg); + LoadSchedules(cboSchedule.Items, FInptDlg); StatusText(''); if FInptDlg then SetControlsInpatient else SetControlsOutpatient; @@ -466,4 +485,6 @@ begin txtNss.Visible := True; + //cboSchedule.ListItemsOnly := True; + //cboXSchedule.ListItemsOnly := True; end; with grdDoses do @@ -537,4 +558,5 @@ FAllDrugs.Free; TAccessibleStringGrid.UnwrapControl(grdDoses); + frmFrame.pnlVisit.Enabled := true; inherited; end; @@ -558,10 +580,9 @@ FQOInitial := False; FNSSOther := False; - FFromClick := False; end; procedure TfrmODMeds.SetupDialog(OrderAction: Integer; const ID: string); var - AnInstr, OrderID, nsSch: string; + AnInstr, OrderID, nsSch, Text: string; ix: integer; begin @@ -606,4 +627,10 @@ 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; @@ -611,5 +638,6 @@ end; end; //nss - UpdateRelated(FALSE); + if ((OrderAction <> Order_COPY) and (OrderAction <> Order_EDIT)) or + (XfInToOutNow = true) then UpdateRelated(FALSE); //AGP Change Changing := False; end; @@ -624,5 +652,6 @@ then AnInstr := 'Copy: ' + AnInstr else AnInstr := 'Change: ' + AnInstr; - Caption := AnInstr; + Text := AnsiReplaceText(AnInstr,CRLF,''); + Caption := Text; memComment.Clear; // sometimes the sig is in the comment end; @@ -654,10 +683,17 @@ // 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 SetError(TX_NF_ROUTE) + then + begin + if cboRoute.Showing = true then cboRoute.SetFocus; //CQ: 7467 + SetError(TX_NF_ROUTE); + end else Responses.Update('ROUTE', AnInstance, RouteID, RouteAbbr); end; @@ -678,5 +714,4 @@ else if (Length(tmpX) = 0) and FInptDlg and ScheduleRequired(txtMed.Tag, ARoute, ADrug) then SetError(TX_NO_SCHED); - if Length(tmpX) > 0 then begin @@ -706,6 +741,15 @@ 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); + 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); @@ -713,4 +757,16 @@ 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 @@ -953,4 +1009,11 @@ 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 @@ -1129,4 +1192,5 @@ QOQuantityStr := ''; btnSelect.SetFocus; // let the exit events finish + if pnlMeds.Visible then // display the medication fields begin @@ -1294,4 +1358,5 @@ lblQtyMsg.Caption := ''; lblQuantity.Caption := 'Quantity'; + FSmplPRNChkd := chkPRN.Checked; // GE CQ7585 chkPRN.Checked := False; FLastUnits := ''; @@ -1318,23 +1383,5 @@ QOPiUnChk := False; PKIEnviron := False; - if GetPKISite and GetPKIUse then //PKI check for crypto object on workstation - begin - try //PKI object creation - crypto := CoXuDigSigS.Create; - crypto.GetCSP; - StatusText(crypto.Reason); - PKIEnviron := True; - except - on E: Exception do - begin - {ShowMessage('An error has been encountered while trying to create PKI environment: '+ E.Message + - '. This order will be processed without Digital Signature encryption.');} - PKIEnviron := False; - end; - end; - crypto := nil; - end; - if PKIEnviron = False then - if GetPKISite then PKIEnviron := True; + if GetPKISite then PKIEnviron := True; with CtrlInits do begin @@ -1381,9 +1428,9 @@ end; pnlTop.Height := pnlFields.Height - pnlBottom.Height; - chkDoseNow.Top := memComment.Top + memComment.Height + 4; + 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; + lblAdminTime.Top := chkDoseNow.Top + chkDoseNow.Height - 1; end else begin @@ -1456,5 +1503,6 @@ SetDosage(IValueFor('INSTR', i)); with cboDosage do - if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text; + 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); @@ -1474,4 +1522,5 @@ 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' @@ -1597,5 +1646,5 @@ txtMed.SetFocus; FDrugID := ''; - ShowOrderMessage( False ); + //ShowOrderMessage( False ); end; @@ -1628,6 +1677,6 @@ procedure TfrmODMeds.ShowControlsSimple; -var - dosagetxt: string; +//var + //dosagetxt: string; begin //Commented out, no longer using CharsNeedMatch Property @@ -1661,19 +1710,43 @@ procedure TfrmODMeds.ShowControlsComplex; - procedure MoveCombo(SrcCombo, DestCombo: TORComboBox); - begin - DestCombo.Items.Clear; - DestCombo.Items.Assign(SrcCombo.Items); - DestCombo.ItemIndex := SrcCombo.ItemIndex; - DestCombo.Text := Piece(SrcCombo.Text, TAB, 1); - end; - -var - dosagetxt: string; + 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); + MoveCombo(cboSchedule, cboXSchedule, true); //AGP Changes 26.12 PSI-04-063 grdDoses.Visible := True; btnXInsert.Visible := True; @@ -1689,5 +1762,5 @@ ActiveControl := grdDoses; //Commented out, no longer using CharsNeedMatch Property - { NumCharsForMatch := 0; +{ NumCharsForMatch := 0; for i := 0 to cboXDosage.Items.Count - 1 do //find the shortest unit dose text on fifth piece begin @@ -1719,6 +1792,8 @@ Break; end; - if ((DoseIndex < 0) and (not IsTransferAction)) then Text := x - else if ((DoseIndex < 0) and IsTransferAction) then Text := '' + 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; @@ -1740,8 +1815,10 @@ procedure TfrmODMeds.SetSchedule(const x: string); var - NonPRNPart: string; +NonPRNPart: string; begin cboSchedule.ItemIndex := -1; - if Pos('PRN', x) > 0 then + //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)); @@ -1762,5 +1839,5 @@ chkPRN.Checked := True; end else - begin + begin *) chkPRN.Checked := False; cboSchedule.SelectByID(x); @@ -1773,26 +1850,55 @@ else begin - cboSchedule.Items.Add(x); - cboSchedule.Text := x; - cboSchedule.SelectByID(x); + 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; end; { Medication edit --------------------------------------------------------------------------- } - procedure TfrmODMeds.tabDoseChange(Sender: TObject); var - x: string; - -begin - inherited; + //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; - ResetOnTabChange; + if reset = 0 then ResetOnTabChange; + txtNss.Left := lblSchedule.Left + lblSchedule.Width + 2; if (FInptDlg) then txtNss.Visible := True else txtNss.Visible := False; @@ -1805,8 +1911,9 @@ 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; - if txtNss.Visible then txtNss.Visible := False; x := cboXDosage.Text + TAB; with cboXDosage do if ItemIndex > -1 then x := x + Items[ItemIndex]; @@ -1818,8 +1925,10 @@ 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); @@ -1901,11 +2010,6 @@ procedure TfrmODMeds.cboDosageChange(Sender: TObject); -var - tmpIdx: integer; - tmpTxt,tmpTxt1: string; -begin - inherited; - //if length(cboDosage.Text) < 1 then - // cboDosage.ItemIndex := -1; +begin + inherited; UpdateRelated; end; @@ -1946,6 +2050,4 @@ begin inherited; -//if cboRoute.Text = '' then -// cboRoute.ItemIndex := -1; with cboRoute do if ItemIndex > -1 then @@ -1994,5 +2096,5 @@ begin inherited; - if (FInptDlg) and (cboSchedule.Text = 'OTHER') then + if (FInptDlg) and (cboSchedule.Text = 'OTHER') then begin othSch := CreateOtherScheduel; @@ -2004,6 +2106,4 @@ end; end; -//if cboSchedule.Text = '' then -// cboSchedule.ItemIndex := -1; //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 @@ -2116,5 +2216,19 @@ if Length(Route) = 0 then Route := ValueOf(FLD_ROUTE_NM); Schedule := ValueOf(FLD_SCHED_EX); - if Length(Schedule) = 0 then Schedule := ValueOf(FLD_SCHEDULE); + (* 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; @@ -2140,5 +2254,16 @@ 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 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; @@ -2241,5 +2366,8 @@ begin Result := Piece(Piece(grdDoses.Cells[COL_DOSAGE, ARow], TAB, 2), U, 4); - if (not FInptDlg) and (Length(FDrugID) > 0) then + //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 := ''; @@ -2454,5 +2582,5 @@ TI_COMPLEX: begin - if txtNss.Visible then txtNss.Visible := False; + //if txtNss.Visible then txtNss.Visible := False; with grdDoses do for i := 1 to Pred(RowCount) do begin @@ -2491,4 +2619,11 @@ 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); @@ -2508,5 +2643,6 @@ begin Responses.Update('NOW', 1, ValueOf(FLD_NOW_ID), ValueOf(FLD_NOW_NM)); - x := InpatientSig; Responses.Update('SIG', 1, TX_WPTYPE, x); + x := InpatientSig; + Responses.Update('SIG', 1, TX_WPTYPE, x); end else // outpatient orders begin @@ -2548,4 +2684,5 @@ 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; @@ -2729,5 +2866,5 @@ procedure TfrmODMeds.ShowEditor(ACol, ARow: Integer; AChar: Char); var - x, NonPRNPart: string; + x,tmpText: string; procedure PlaceControl(AControl: TWinControl); @@ -2759,4 +2896,5 @@ 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. @@ -2784,10 +2922,11 @@ //grdDoses.Cells[COL_SCHEDULE, ARow] := grdDoses.Cells[COL_SCHEDULE, Pred(ARow)]; end; - if grdDoses.Cells[COL_SEQUENCE, Pred(ARow)] = '' then + //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; *} end; // set appropriate value for cboDosage @@ -2806,7 +2945,18 @@ 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; - chkXPRN.Checked := False; + 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 @@ -2815,5 +2965,5 @@ end else cboXSchedule.ItemIndex := -1; - if Pos('PRN', x) > 0 then + (* if Pos('PRN', x) > 0 then begin NonPRNPart := Trim(Copy(x, 1, Pos('PRN', x) - 1)); @@ -2825,5 +2975,5 @@ if cboXSchedule.ItemIndex < 0 then cboXSchedule.Text := x; end; - end; + end; *) Changing := FALSE; pnlXSequence.Tag := ARow; @@ -2844,20 +2994,23 @@ 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 := 'then'; + //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; + btnXSequence.Width := pnlXSequence.Width; end; end; {case ACol} @@ -2929,5 +3082,4 @@ then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST else lblQtyMsg.Caption := ''; - end; @@ -2985,5 +3137,5 @@ cboXRoute.ItemIndex := -1; Exit; - end; + end; cboXRouteClick(Self); cboXRoute.Tag := -1; @@ -3013,5 +3165,5 @@ procedure TfrmODMeds.cboXScheduleChange(Sender: TObject); var - othSch, x, PRN: string; + othSch, x: string; idx : integer; begin @@ -3031,9 +3183,13 @@ end; end; - if chkXPRN.Checked then PRN := ' PRN' else PRN := ''; + (* 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; + 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; @@ -3042,21 +3198,30 @@ procedure TfrmODMeds.cboXScheduleClick(Sender: TObject); var - x, PRN: string; -begin - inherited; - if chkXPRN.Checked then PRN := ' PRN' else PRN := ''; + 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 + PRN + TAB + Items[ItemIndex] - else x := Text + PRN; - if (Pos('PRN',X)>0) and (pnlXSchedule.Tag = 1) then + 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 := ''; + lblAdmintime.Caption := ''; *) grdDoses.Cells[COL_SCHEDULE, pnlXSchedule.Tag] := x; + UpdateStartExpires(x); UpdateRelated; end; procedure TfrmODMeds.chkXPRNClick(Sender: TObject); -begin - inherited; +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; @@ -3096,4 +3261,5 @@ var I, Code: Integer; + OrgValue: string; begin inherited; @@ -3103,8 +3269,13 @@ Val(txtXDuration.Text, I, Code); UpdateDurationControls(Code <> 0); - if (Code <> 0) and (I=0) then - begin - ShowMessage('Free text input is not allowed!'); - txtXDuration.Text := '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; @@ -3114,12 +3285,35 @@ PopDuration.Items.Tag := 0; btnXDuration.Caption := ''; - end + 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; + end; } grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := txtXDuration.Text + ' ' + Uppercase(btnXDuration.Caption); - end else grdDoses.Cells[COL_DURATION, pnlXDuration.Tag] := ''; + 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; @@ -3151,7 +3345,21 @@ 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; @@ -3162,4 +3370,13 @@ 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; @@ -3279,5 +3496,5 @@ FLD_ROUTE_EX : with cboRoute do if ItemIndex > -1 then Result := Piece(Items[ItemIndex], U, 4); - FLD_SCHEDULE : begin + FLD_SCHEDULE : begin //gary) Result := UpperCase(Trim(cboSchedule.Text)); if chkPRN.Checked then Result := Result + ' PRN'; @@ -3287,8 +3504,38 @@ 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 @@ -3330,7 +3577,13 @@ 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 : Result := Piece(Cells[COL_SCHEDULE, ARow], TAB, 1); + 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); + (*Result := Piece(Piece(Cells[COL_SCHEDULE, ARow], TAB, 2), U, 2); if Result = '' then //Added for CQ: 7639 begin @@ -3343,4 +3596,24 @@ (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); @@ -3552,17 +3825,11 @@ procedure TfrmODMeds.UpdateStartExpires(const CurSchedule: string); var - ShowText, Duration, ASchedule: string; + CompSch, ShowText, Duration, ASchedule: string; AdminTime: TFMDateTime; - Interval, PrnPos: Integer; + 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, Length(ASchedule)); - end - else if (Pos('^',ASchedule)>0) then + if (Pos('^',ASchedule)>0) then begin PrnPos := Pos('PRN',ASchedule); @@ -3571,7 +3838,50 @@ 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; + 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 @@ -3630,5 +3940,5 @@ CurSupply, i, pNum, j: Integer; CurQuantity: double; - LackQtyInfo, SaveChanging: Boolean; + LackQtyInfo, SaveChanging, DispFirstDose: Boolean; begin inherited; @@ -3637,4 +3947,5 @@ SaveChanging := Changing; Changing := TRUE; + DispFirstDose := FALSE; // don't allow Exit procedure so Changing gets reset appropriately CurUnits := ''; @@ -3700,11 +4011,22 @@ or ((Length(cboSchedule.Text)>0) and (cboSchedule.ItemIndex < 0)) then begin - if (chkDoseNow.Checked) and (chkDoseNow.Visible) then + if (chkDoseNow.Checked) and (chkDoseNow.Visible) then + begin + chkDoseNowClick(Self); + chkDoseNow.Checked := False; + end; + for i := 0 to cboSchedule.Items.Count-1 do begin - chkDoseNowClick(Self); - chkDoseNow.Checked := False; + if Piece(cboSchedule.Items.Strings[i],U,1) = Uppercase(cboSchedule.Text) then + begin + DispFirstDose := True; + break; + end; end; - chkDoseNow.Visible := False; - lblAdminTime.Visible := False; + if not DispFirstDose then + begin + chkDoseNow.Visible := False; + lblAdminTime.Visible := False; + end; end else @@ -3715,8 +4037,8 @@ if Responses.EventType in ['A','D','T','M','O'] then lblAdminTime.Visible := False; end; - if not FInptDlg then + if not FInptDlg then begin CurSchedule := CurScheduleOut; - if CurInstruct <> FLastInstruct + 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); @@ -3751,16 +4073,38 @@ procedure TfrmODMeds.cmdAcceptClick(Sender: TObject); -begin - if (cboSchedule.Text = 'OTHER') and (FInptDlg)then +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; @@ -3791,5 +4135,5 @@ 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 + 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; @@ -3808,7 +4152,7 @@ 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 + + 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 + 'Give Additional Dose Now for Complex Order', MB_OKCANCEL or MB_ICONWARNING) = IDCANCEL) ) then begin chkDoseNow.Checked := False; @@ -3908,7 +4252,15 @@ var tempSch: string; -begin - inherited; - if chkPRN.Checked then lblAdminTime.Caption := '' + 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 @@ -3918,5 +4270,5 @@ UpdateStartExpires(tempSch); end; - lblAdminTime.Caption := FAdminTimeLbl; + //lblAdminTime.Caption := FAdminTimeLbl; if txtQuantity.visible then cboScheduleClick(Self); @@ -4031,7 +4383,5 @@ end else if (Key = #13) and (ActiveControl = txtMed) then - Key := #0 //Don't let the base class turn it into a forward tab! - else - inherited; + Key := #0; //Don't let the base class turn it into a forward tab! end; @@ -4284,5 +4634,5 @@ inherited; if MessageDlg('You can also select ' + '"' + 'Other' + '"' + ' from the schedule list' - + ' to create a day-of-week or admin-time only schedule.' + + ' to create a day-of-week schedule.' + #13#10 + 'Click OK to launch schedule builder', mtInformation, [mbOK, mbCancel],0) = mrOK then @@ -4292,4 +4642,9 @@ cboSchedule.SelectByID('OTHER'); cboScheduleClick(Self); + end; + if (tabDose.TabIndex = TI_COMPLEX) then + begin + cboXSchedule.SelectByID('OTHER'); + CBOXScheduleChange(Self); end; end; @@ -4325,13 +4680,26 @@ procedure TfrmODMeds.ValidateInpatientSchedule(ScheduleCombo: TORComboBox); -begin - //CQ 7575 Schedule coming across lower-case, change all schedules to Upper-Case. +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 := UpperCase(ScheduleCombo.Text); + 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 non-standard schedule please'+ + 'If you would like to create a Day-of-Week schedule please'+ ' select ''OTHER'' from the list.', 'Incorrect Schedule.'); @@ -4344,6 +4712,7 @@ //Removed based on Site feeback. See CQ: 7518 -{function TfrmODMeds.ValidateRoute(RouteCombo: TORComboBox) : Boolean; -begin +(*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 @@ -4356,5 +4725,5 @@ Result := False; end; -end;} +end;*) function TfrmODMeds.isUniqueQuickOrder(iText: string): Boolean; @@ -4373,4 +4742,5 @@ 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 @@ -4378,10 +4748,89 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.dfm (revision 460) @@ -8,5 +8,4 @@ Constraints.MinHeight = 344 Constraints.MinWidth = 576 - OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 @@ -88,5 +87,6 @@ SynonymChars = '<>' TabOrder = 0 - OnDropDownClose = cboImTypeChange + OnChange = cboImTypeChange + OnDropDownClose = cboImTypeDropDownClose OnExit = cboImTypeExit CharsNeedMatch = 1 @@ -241,4 +241,5 @@ TabOrder = 8 OnChange = calPreOpChange + OnExit = calPreOpExit DateOnly = False RequireTime = False @@ -256,4 +257,5 @@ TabOrder = 6 OnClick = ControlChange + OnExit = chkIsolationExit end object calRequestDate: TORDateBox Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.pas (revision 460) @@ -56,5 +56,4 @@ procedure FormCreate(Sender: TObject); procedure cboImTypeChange(Sender: TObject); - procedure FormPaint(Sender: TObject); procedure memReasonExit(Sender: TObject); procedure FormResize(Sender: TObject); @@ -65,4 +64,8 @@ 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; @@ -71,8 +74,13 @@ 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; + procedure SetDefaultPregant; public procedure SetupDialog(OrderAction: Integer; const ID: string); override; @@ -83,5 +91,6 @@ {$R *.DFM} -uses rODBase, rODRad, rOrders, uCore, rCore, fODRadApproval, fODRadConShRes, fLkUpLocation; +uses rODBase, rODRad, rOrders, uCore, rCore, fODRadApproval, fODRadConShRes, fLkUpLocation, fFrame, + uFormMonitor; const @@ -103,7 +112,7 @@ var Radiologist, Contract, Research: string ; - AName: string; + AName, IsPregnant: string; ALocation, AType: integer; - + { TfrmODBase common methods } @@ -116,5 +125,5 @@ if OrderAction in [ORDER_COPY, ORDER_EDIT, ORDER_QUICK] then with Responses do begin - if (OrderAction = ORDER_QUICK) or (OrderAction = ORDER_COPY) then + if (OrderAction = ORDER_QUICK) or (OrderAction = ORDER_EDIT) or (OrderAction = ORDER_COPY) then FPredefineOrder := True; FEditCopy := True; @@ -125,4 +134,9 @@ 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 @@ -171,8 +185,25 @@ 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; @@ -184,4 +215,5 @@ begin if not FEditCopy then inherited; + FPreOpDate := ''; FLastRadID := ''; @@ -203,4 +235,5 @@ cboProcedure.Items.Add(FRadCommonCombo.Items[i]); if FRadCommonCombo.Items.Count>0 then cboProcedure.InsertSeparator; + calRequestDate.Text := 'TODAY'; SetControl(cboAvailMod, 'Modifiers'); @@ -286,5 +319,5 @@ 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') + 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'); @@ -387,12 +420,14 @@ 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; + end; procedure TfrmODRad.cboAvailModMouseClick(Sender: TObject); @@ -402,4 +437,6 @@ 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]; @@ -445,9 +482,9 @@ begin if ItemID <> FLastRadID then - begin - FLastRadID := ItemID; - if FPredefineOrder then - FPredefineOrder := False; - end else Exit; + begin + FLastRadID := ItemID; + if FPredefineOrder then + FPredefineOrder := False; + end else Exit; Changing := True; if Sender <> Self then @@ -539,4 +576,7 @@ procedure TfrmODRad.FormCreate(Sender: TObject); begin + FFormFirstOpened := TRUE; + ImageTypeChanged := false; + frmFrame.pnlVisit.Enabled := false; AutoSizeDisabled := True; inherited; @@ -567,4 +607,5 @@ radPregnantUnknown.Enabled := False; end else SetDefaultPregant; + FormMonitorBringToFrontEvent(Self, FormFirstOpened); end; @@ -575,20 +616,5 @@ begin inherited; - 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.FormPaint(Sender: TObject); -begin - inherited; - with cboImType do - if not FEditCopy and (ItemIEN = 0) and (DroppedDown = False) and (Application.Active) - then DroppedDown := True; + ImageTypeChanged := true; end; @@ -679,9 +705,74 @@ end; + procedure TfrmODRad.cboImTypeExit(Sender: TObject); begin inherited; - if FPredefineOrder then Exit - else cboImTypeChange(Self); + 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmODVitals: TfrmODVitals - Left = 273 - Top = 211 + Left = 721 + Top = 363 Caption = 'Vital Measurement Order' PixelsPerInch = 96 @@ -64,4 +64,5 @@ ListItemsOnly = False LongList = False + LookupPiece = 0 MaxLength = 0 Pieces = '2' @@ -70,4 +71,5 @@ TabOrder = 4 OnChange = ControlChange + CharsNeedMatch = 1 end object cboSchedule: TORComboBox @@ -86,4 +88,5 @@ ListItemsOnly = False LongList = False + LookupPiece = 0 MaxLength = 0 Pieces = '2' @@ -92,4 +95,5 @@ TabOrder = 5 OnChange = ControlChange + CharsNeedMatch = 1 end object calStart: TORDateBox Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.pas (revision 460) @@ -38,4 +38,5 @@ procedure FormCreate(Sender: TObject); procedure ControlChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } @@ -54,5 +55,5 @@ {$R *.DFM} -uses uConst, ORFn, rODBase; +uses uConst, ORFn, rODBase, fFrame; const @@ -64,4 +65,5 @@ procedure TfrmODVitals.FormCreate(Sender: TObject); begin + frmFrame.pnlVisit.Enabled := false; inherited; FillerID := 'OR'; // does 'on Display' order check **KCM** @@ -138,3 +140,10 @@ end; +procedure TfrmODVitals.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + frmFrame.pnlVisit.Enabled := true; +end; + end. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMSet.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMSet.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMSet.pas (revision 460) @@ -26,4 +26,6 @@ procedure FormCreate(Sender: TObject); private + DoingNextItem : Boolean; + CloseRequested : Boolean; FDelayEvent: TOrderDelayEvent; FClosing: Boolean; @@ -105,4 +107,5 @@ var SetItem: TSetItem; + theOwner: TComponent; procedure SkipToNext; @@ -113,4 +116,5 @@ begin + DoingNextItem := true; //frmFrame.UpdatePtInfoOnRefresh; if FClosing then Exit; @@ -158,9 +162,12 @@ SkipToNext; end; - 'O': if not ActivateOrderSet( 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; + '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 @@ -170,4 +177,5 @@ end; {case} end; {with lstSet} + DoingNextItem := false; end; @@ -178,4 +186,6 @@ if Message.WParam = lstSet.ItemIndex then if lstSet.ItemIndex < lstSet.Items.Count - 1 then DoNextItem else Close; + if CloseRequested then + Close; end; @@ -197,5 +207,5 @@ begin SendMessage(TWinControl(SetItem.OwnedBy).Handle, UM_DESTROY, SetItem.RefNum, 0); - Exit; + //Exit; end; end; @@ -219,4 +229,6 @@ FClosebyDeaCheck := False; NoFresh := True; + CloseRequested := false; + DoingNextItem := false; end; @@ -264,5 +276,8 @@ procedure TfrmOMSet.cmdInteruptClick(Sender: TObject); begin - Close; + if DoingNextItem then + CloseRequested := true //Fix for CQ: 8297 + else + Close; end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMVerify.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMVerify.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMVerify.pas (revision 460) @@ -30,5 +30,5 @@ {$R *.DFM} -uses ORFn, uConst, fFrame, rMisc; +uses ORFn, uConst, fFrame, rMisc, uODBase; procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean); @@ -37,4 +37,5 @@ tempStrs,prompts: TStringList; flag: boolean; + HasObjects: boolean; function CutoffOutptPrompts(const promptIDs: TStringList; var promptList: TStringList): boolean; @@ -83,4 +84,5 @@ SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height); SetFormPosition(frmOMVerify); + ExpandOrderObjects(VerifyText, HasObjects); memText.Lines.SetText(PChar(VerifyText)); ShowModal; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.dfm (revision 460) @@ -87,4 +87,5 @@ OnExit = cboOnExit OnNeedData = cboAlertRecipientNeedData + CharsNeedMatch = 1 end end Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.pas (revision 460) @@ -57,4 +57,5 @@ finally frmFlagOrder.Release; + AlertRecip := 0; end; end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderSaveQuick.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderSaveQuick.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderSaveQuick.pas (revision 460) @@ -104,7 +104,9 @@ DGroupName, QuickName, CRC: string; NewIEN, AnIndex, i: Integer; + IsClinicOrder: boolean; begin Result := False; CRC := ResponseSet.OrderCRC; + IsClinicOrder := False; if CRC = EMPTY_CRC then begin @@ -117,4 +119,9 @@ 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) @@ -156,4 +163,5 @@ SaveQuickListForOD(lstQuickList.Items, ResponseSet.DisplayGroup); end; {if OKPressed} + if IsClinicOrder = True then ResponseSet.DisplayGroup := ClinDisp; end; {with frmSaveQuickOrder} finally Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm (revision 460) @@ -1,6 +1,6 @@ inherited frmOrders: TfrmOrders - Left = 142 - Top = 63 - Width = 698 + Left = 451 + Top = 250 + Width = 774 Height = 579 HelpContext = 4000 @@ -14,9 +14,10 @@ inherited shpPageBottom: TShape Top = 528 - Width = 690 + Width = 766 end inherited sptHorz: TSplitter Left = 117 Height = 528 + OnMoved = sptHorzMoved end inherited pnlLeft: TPanel @@ -102,5 +103,5 @@ inherited pnlRight: TPanel Left = 121 - Width = 569 + Width = 645 Height = 528 ParentColor = True @@ -111,5 +112,5 @@ Left = 0 Top = 0 - Width = 569 + Width = 645 Height = 19 Align = alTop @@ -144,5 +145,5 @@ Left = 0 Top = 19 - Width = 569 + Width = 645 Height = 17 DragReorder = False @@ -179,5 +180,5 @@ ImageIndex = -1 MinWidth = 16 - Text = 'Nrs' + Text = 'Nurse' Width = 40 end @@ -185,5 +186,5 @@ ImageIndex = -1 MinWidth = 16 - Text = 'Clk' + Text = 'Clerk' Width = 35 end @@ -197,5 +198,5 @@ ImageIndex = -1 MinWidth = 16 - Text = 'Sts' + Text = 'Status' Width = 50 end @@ -206,4 +207,5 @@ Width = 40 end> + OnSectionClick = hdrOrdersSectionClick OnSectionResize = hdrOrdersSectionResize OnMouseDown = hdrOrdersMouseDown @@ -213,5 +215,5 @@ Left = 0 Top = 36 - Width = 569 + Width = 645 Height = 492 Style = lbOwnerDrawVariable @@ -301,4 +303,54 @@ 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 = '-' @@ -522,4 +574,9 @@ OnClick = mnuActSignClick end + object mnuOptimizeFields: TMenuItem + Caption = 'Adjust Column Size' + Visible = False + OnClick = mnuOptimizeFieldsClick + end end end Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.pas (revision 460) @@ -89,4 +89,15 @@ 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); @@ -146,4 +157,10 @@ 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 } @@ -188,4 +205,5 @@ procedure UseDefaultSort; procedure SynchListToOrders; +// procedure ActivateDeactiveRenew; procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); procedure ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string; @@ -196,5 +214,7 @@ 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 @@ -229,5 +249,5 @@ property EvtColWidth: integer read FEvtColWidth write FEvtColWidth; property DontCheck: boolean read FDontCheck write FDontCheck; - property ParentComplexOrderID: string read FParentComplexOrderID write FParentComplexOrderID; + property ParentComplexOrderID: string read FParentComplexOrderID write FParentComplexOrderID; end; @@ -247,5 +267,5 @@ fOMNavA, rCore, fOCSession, fOrdersPrint, fOrdersTS, fEffectDate, fODActive, fODChild, fOrdersCopy, fOMVerify, fODAuto, rODBase, uODBase, rMeds,fODValidateAction, fMeds, uInit, fBALocalDiagnoses, - fODConsult; + fODConsult, fClinicWardMeds, fActivateDeactivate; {$R *.DFM} @@ -970,5 +990,6 @@ if ((TOrder(Items.Objects[i]).DGroupName = 'Inpt. Meds') or (TOrder(Items.Objects[i]).DGroupName = 'Out. Meds') or - (TOrder(Items.Objects[i]).DGroupName = 'IV Fluids')) then + (TOrder(Items.Objects[i]).DGroupName = 'Clin. Orders') or + (TOrder(Items.Objects[i]).DGroupName = 'Infusion')) then begin tmpList.Add(''); @@ -993,7 +1014,8 @@ 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; - StatusText(''); - end; + end; finally tmpList.Free; @@ -1324,9 +1346,9 @@ 7: result := ChartRev; 8: result := NameOfStatus(Status); - 9: - begin - result := MixedCase(Anorder.OrderLocName); - if (Index > 0) and (result = TOrder(lstOrders.Items.Objects[Index - 1]).OrderLocName) then result := ''; - end; + 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; @@ -1435,5 +1457,5 @@ NextIndex: Integer; begin - + if PatientStatusChanged then exit; if BILLING_AWARE then //CQ5114 fODConsult.displayDXCode := ''; //CQ5114 @@ -1534,88 +1556,102 @@ BadList := TStringList.Create; CheckedList := TStringList.Create; - with lstOrders do for i := 0 to Items.Count - 1 do if Selected[i] then - begin - AnOrder := TOrder(Items.Objects[i]); - //AGP Change 25.34 to fix problem with renewing inpatient meds from an outpatient location - 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 can not renew inpatient medication order on a clinic location for selected inpatient.', mtWarning, [mbOK], 0); - end; - if (AnAction = 'RN') or (AnAction = 'EV') then // or (AnAction = 'RW') then - 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.'); - //else if (AnAction = 'RW') then - // ShowMessage('The order contains invalid schedule and can not be copied.); + 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; - end; - if AnAction <> OA_RELEASE then ValidateOrderAction(AnOrder.ID, AnAction, ErrMsg) - 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 + 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 (AnOrder.Signature = 2) and (not VerbTelPolicyOrder(AnOrder.ID)) then - begin - ErrMsg := 'Need to be signed first.'; - Selected[i] := False; - end; + 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; - - 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; @@ -1682,5 +1718,7 @@ SelectedList := TList.Create; try - ValidateSelected(OA_DC, TX_NO_DC, TC_NO_DC); // validate DC action on each order + //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 @@ -1753,5 +1791,5 @@ begin inherited; - if not EncounterPresentEDO then Exit; + if not EncounterPresentEDO then Exit; if NoneSelected(TX_NOSEL) then Exit; if not AuthorizedUser then Exit; @@ -1764,4 +1802,5 @@ 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 @@ -1799,4 +1838,5 @@ 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 @@ -1824,4 +1864,5 @@ 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 @@ -1850,4 +1891,5 @@ 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 @@ -2026,4 +2068,5 @@ 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 @@ -2067,4 +2110,5 @@ 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 @@ -2269,5 +2313,5 @@ UBACore.CompleteUnsignedBillingInfo(rpcGetUnsignedOrdersBillingData(OrderListSCEI) ); end; - + {billing Aware} ExecuteReleaseOrderChecks(SelectedList); // call order checking @@ -2279,7 +2323,10 @@ 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 Active then + begin + UpdateExpiringMedAlerts(Patient.DFN); + UpdateUnverifiedMedAlerts(Patient.DFN); + UpdateUnverifiedOrderAlerts(Patient.DFN); + end; if not uInit.TimedOut then begin @@ -2370,5 +2417,9 @@ NF_DNR_EXPIRING : ViewAlertedOrders('', STS_EXPIRING, '', False, True, 'All Services, Expiring'); - NF_MEDICATIONS_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'); @@ -2509,6 +2560,8 @@ 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; + //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 @@ -3045,4 +3098,8 @@ inherited SetFontSize( FontSize ); RedrawOrderList; + mnuOptimizeFieldsClick(self); + lstSheets.Repaint; + lstWrite.Repaint; + btnDelayedOrder.Repaint; end; @@ -3050,4 +3107,5 @@ begin inherited; + if PatientStatusChanged then exit; //frmFrame.UpdatePtInfoOnRefresh; end; @@ -3056,4 +3114,5 @@ begin inherited; + if PatientStatusChanged then exit; //frmFrame.UpdatePtInfoOnRefresh; end; @@ -3062,4 +3121,5 @@ begin inherited; + if PatientStatusChanged then exit; //frmFrame.UpdatePtInfoOnRefresh; end; @@ -3068,4 +3128,5 @@ begin inherited; + if PatientStatusChanged then exit; //frmFrame.UpdatePtInfoOnRefresh; end; @@ -3186,18 +3247,21 @@ var i: integer; - totalSectionsWidth: integer; + totalSectionsWidth, originalwidth: integer; begin inherited; //CQ6170 totalSectionsWidth := getTotalSectionsWidth; - - if totalSectionsWidth > lstOrders.Width - 5 then - begin - for i := 0 to hdrOrders.Sections.Count-1 do - begin - hdrOrders.Sections[i].Width := origWidths[i]; - lstOrders.Invalidate; - end; - end; + 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; @@ -3209,4 +3273,126 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.dfm (revision 460) @@ -65,4 +65,5 @@ ParentShowHint = False ShowHint = True + Sorted = True TabOrder = 0 Caption = 'Reason for Discontinue (select one)' Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.pas (revision 460) @@ -36,7 +36,5 @@ {$R *.DFM} -uses rOrders, uCore, uConst, fOrders, UBAGlobals; -{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. } -//, fOrderChildren; +uses rOrders, uCore, uConst, fOrders; function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; @@ -52,8 +50,4 @@ OriginalID,APtEvtID,APtEvtName,AnEvtInfo,tmpPtEvt: string; PtEvtList: TStringList; -{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. } -(* tmpList: TList; - j: integer; - AChildOrder: TOrder;*) begin Result := False; @@ -63,6 +57,4 @@ PtEvtList := TStringList.Create; if SelectedList.Count = 0 then Exit; -{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. } -// tmpList := TList.Create; frmDCOrders := TfrmDCOrders.Create(Application); try @@ -72,31 +64,7 @@ begin AnOrder := TOrder(Items[i]); - - if BILLING_AWARE then //CQ4589 - UBAGlobals.RemoveOrderFromDxList(AnOrder.ID); - -{ TODO -oRich V. -cOutpatient Meals : Comment next 3 lines for processing of child orders treeview. } frmDCOrders.lstOrders.Items.Add(AnOrder.Text); if not ((AnOrder.Status = 11) and (AnOrder.Signature = 2)) then NeedReason := True; end; -{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. } -//*********** begin OP meals changes ************** -(* if Copy(AnOrder.Text, 1, 1) = '+' then - begin - ActOnChildOrders(tmpList, AnOrder.ID); -{ TODO -oRich V. -cOutpatient Meals : How/when to get selected items into SelectedList? } - for j := tmpList.Count - 1 downto 0 do - begin - AChildOrder := TOrder(tmpList.Items[j]); - frmDCOrders.lstOrders.Items.Add(AChildOrder.Text); - if not ((AChildOrder.Status = 11) and (AChildOrder.Signature = 2)) then NeedReason := True; - end; - end else - begin - frmDCOrders.lstOrders.Items.Add(AnOrder.Text); - if not ((AnOrder.Status = 11) and (AnOrder.Signature = 2)) then NeedReason := True; - end; - end;*) -//************* End OP meals changes **************** if NeedReason then begin @@ -126,6 +94,4 @@ end; DCT_DELETION: begin - if BILLING_AWARE then - UBAGlobals.BADeltedOrders.Add(OriginalID); Changes.Remove(CH_ORD, OriginalID); if (AnOrder.ID = '0') or (AnOrder.ID = '') @@ -174,6 +140,4 @@ else with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID); finally -{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. } - //tmpList.Free; frmDCOrders.Release; end; @@ -202,5 +166,5 @@ begin inherited; - if not (lstReason.ItemIEN > 0) then + if (lstReason.Visible) and (not (lstReason.ItemIEN > 0)) then begin InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK); Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersOnChart.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersOnChart.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersOnChart.pas (revision 460) @@ -33,5 +33,6 @@ {$R *.DFM} -uses rCore, rOrders, uConst, fOrdersPrint, uOrders; +uses rCore, rOrders, uConst, fOrdersPrint, uOrders, fFrame, UCore, + fClinicWardMeds; const @@ -43,5 +44,5 @@ var frmOnChartOrders: TfrmOnChartOrders; - i: Integer; + i, PrintLoc: Integer; SignList: TStringList; OrderText: string; @@ -62,4 +63,5 @@ begin Result := False; + PrintLoc := 0; if SelectedList.Count = 0 then Exit; frmOnChartOrders := TfrmOnChartOrders.Create(Application); @@ -78,4 +80,16 @@ 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 @@ -88,5 +102,5 @@ end; StatusText(''); - PrintOrdersOnSignRelease(SignList, NO_WRITTEN); + PrintOrdersOnSignRelease(SignList, NO_WRITTEN, PrintLoc); // SetupOrdersPrint(SignList, DeviceInfo, NO_WRITTEN, False, PrintIt); //*KCM* // if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo); //*KCM* Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas (revision 460) @@ -41,5 +41,6 @@ {$R *.DFM} -uses Hash, rCore, rOrders, uConst, fSignItem, fOrdersPrint, uCore, uOrders, fRptBox; +uses Hash, rCore, rOrders, uConst, fSignItem, fOrdersPrint, uCore, uOrders, fRptBox, + fFrame, fClinicWardMeds; const @@ -55,5 +56,5 @@ var frmReleaseOrders: TfrmReleaseOrders; - i: Integer; + i, PrintLoc: Integer; SignList: TStringList; OrderText: string; @@ -87,4 +88,5 @@ begin Result := False; + PrintLoc := 0; if SelectedList.Count = 0 then Exit; frmReleaseOrders := TfrmReleaseOrders.Create(Application); @@ -109,4 +111,19 @@ 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 @@ -120,5 +137,5 @@ end; StatusText(''); - PrintOrdersOnSignRelease(SignList, frmReleaseOrders.FNature); + PrintOrdersOnSignRelease(SignList, frmReleaseOrders.FNature, PrintLoc); // SetupOrdersPrint(SignList, DeviceInfo, frmReleaseOrders.FNature, False, PrintIt); //*KCM* // if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo); //*KCM* Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.dfm (revision 460) @@ -1,9 +1,14 @@ inherited frmRenewOrders: TfrmRenewOrders - Left = 273 - Top = 185 - Width = 450 - Height = 270 + 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 @@ -11,49 +16,41 @@ PixelsPerInch = 96 TextHeight = 13 - object lstOrders: TListBox - Left = 0 - Top = 17 - Width = 442 - Height = 185 - Style = lbOwnerDrawVariable - Align = alClient - Color = clCream - ItemHeight = 13 - TabOrder = 0 - OnClick = lstOrdersClick - OnDrawItem = lstOrdersDrawItem - OnMeasureItem = lstOrdersMeasureItem - end object hdrOrders: THeaderControl Left = 0 Top = 0 - Width = 442 + Width = 592 Height = 17 DragReorder = False + Constraints.MinHeight = 17 Sections = < item + AutoSize = True ImageIndex = -1 Text = 'Order to be Renewed' - Width = 317 + Width = 296 end item + AutoSize = True ImageIndex = -1 Text = 'Start/Stop Time' - Width = 125 + Width = 296 end> + OnSectionResize = hdrOrdersSectionResize end - object Panel1: TPanel + object pnlBottom: TPanel Left = 0 - Top = 202 - Width = 442 - Height = 41 + Top = 393 + Width = 592 + Height = 23 Align = alBottom + Anchors = [akLeft, akTop, akRight, akBottom] + AutoSize = True TabOrder = 2 DesignSize = ( - 442 - 41) + 592 + 23) object cmdCancel: TButton - Left = 362 - Top = 12 + Left = 512 + Top = 1 Width = 72 Height = 21 @@ -61,14 +58,16 @@ Cancel = True Caption = 'Cancel' + Constraints.MinHeight = 21 TabOrder = 0 OnClick = cmdCancelClick end object cmdOK: TButton - Left = 274 - Top = 12 + Left = 424 + Top = 1 Width = 72 Height = 21 Anchors = [akTop, akRight] Caption = 'OK' + Constraints.MinHeight = 21 Default = True TabOrder = 1 @@ -77,8 +76,9 @@ object cmdChange: TButton Left = 8 - Top = 12 + Top = 1 Width = 145 Height = 21 Caption = 'Change...' + Constraints.MinHeight = 21 Enabled = False TabOrder = 2 @@ -86,3 +86,30 @@ 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas (revision 460) @@ -6,14 +6,14 @@ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, fAutoSz, StdCtrls, ORFn, ComCtrls, uConst, rODMeds, uOrders, fOCAccept, - ExtCtrls, uODBase; + ExtCtrls, uODBase, ORCtrls; type TfrmRenewOrders = class(TfrmAutoSz) - lstOrders: TListBox; hdrOrders: THeaderControl; - Panel1: TPanel; + pnlBottom: TPanel; cmdCancel: TButton; cmdOK: TButton; cmdChange: TButton; + lstOrders: TCaptionListBox; procedure FormCreate(Sender: TObject); procedure cmdOKClick(Sender: TObject); @@ -27,4 +27,6 @@ procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); + procedure hdrOrdersSectionResize(HeaderControl: THeaderControl; + Section: THeaderSection); private OKPressed: Boolean; @@ -78,5 +80,5 @@ IsInpt: boolean; i,j: Integer; - m: integer; //BAPHII 1.3.2 + //m: integer; //BAPHII 1.3.2 PkgInfo:string; PlainText,RnErrMsg: string; @@ -251,10 +253,6 @@ AnOrder.LinkObject := nil; end; - frmRenewOrders.Release; end; - - - end; @@ -283,4 +281,5 @@ 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; @@ -427,3 +426,10 @@ end; +procedure TfrmRenewOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); +begin + inherited; + lstOrders.Repaint; //CQ6367 +end; + + end. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.dfm (revision 460) @@ -1,5 +1,5 @@ object frmSignOrders: TfrmSignOrders - Left = 379 - Top = 162 + Left = 400 + Top = 159 Width = 585 Height = 511 @@ -43,9 +43,9 @@ object Label2: TStaticText Left = 8 - Top = 144 + Top = 147 Width = 171 Height = 17 Caption = 'The following orders will be signed -' - TabOrder = 4 + TabOrder = 3 TabStop = True end @@ -58,5 +58,5 @@ Caption = 'OK' Default = True - TabOrder = 2 + TabOrder = 1 OnClick = cmdOKClick end @@ -69,5 +69,5 @@ Cancel = True Caption = 'Cancel' - TabOrder = 3 + TabOrder = 2 OnClick = cmdCancelClick end @@ -192,5 +192,5 @@ ShowHint = True Style = lbOwnerDrawVariable - TabOrder = 1 + TabOrder = 4 OnClick = clstOrdersClick OnDrawItem = clstOrdersDrawItem @@ -243,5 +243,4 @@ object Diagnosis1: TMenuItem Caption = '&Diagnosis...' - Enabled = False ShortCut = 32836 OnClick = buOrdersDiagnosisClick Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.pas (revision 460) @@ -114,5 +114,5 @@ uses Hash, rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, uSignItems, fOrders, - fPCELex, rPCE, fODConsult, fBALocalDiagnoses; + fPCELex, rPCE, fODConsult, fBALocalDiagnoses, fClinicWardMeds, fFrame; const @@ -208,4 +208,5 @@ cProvDUZ: Int64; OrderText: string; + PrintLoc: Integer; // tempOrderID: string; @@ -251,6 +252,5 @@ Result := False; DigSigErr := True; - DigStoreErr := False; - Obj := Nil; + PrintLoc := 0; if SelectedList.Count = 0 then Exit; if BILLING_AWARE then @@ -418,8 +418,24 @@ 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 + + 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 @@ -443,5 +459,5 @@ if theSts = 10 then SignList.Delete(cnt); //signed delayed order should not be printed. end; - PrintOrdersOnSignRelease(SignList, NO_PROVIDER); + PrintOrdersOnSignRelease(SignList, NO_PROVIDER, PrintLoc); finally SignList.Free; @@ -505,8 +521,4 @@ procedure TfrmSignOrders.cmdOKClick(Sender: TObject); -{Begin BillingAware} -var - BABillingRecs: TStringList; -{End BillingAware} const TX_NO_CODE = 'An electronic signature code must be entered to sign orders.'; @@ -519,12 +531,5 @@ begin inherited; -{Begin BillingAware} - if BILLING_AWARE then - begin - BABillingRecs := TStringList.Create; - BABillingRecs.Clear; - end; -{End BillingAware} - + if txtESCode.Visible and (Length(txtESCode.Text) = 0) then begin @@ -545,5 +550,6 @@ begin if SigItems.OK2SaveSettings then - if Not BADxEntered then // if Dx have been entered and OK is pressed + + 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); @@ -781,5 +787,4 @@ begin //Billing Awareness 'flyover' hint includes Dx code(s) when Dx code(s) have been assigned to an order - thisRec := TBADxRecord.Create; thisOrderID := TChangeItem(fOrdersSign.frmSignOrders.clstOrders.Items.Objects[Itm]).ID; @@ -909,5 +914,4 @@ {Begin BillingAware} - numSelected := 0; match := false; allBlank := false; @@ -1264,6 +1268,5 @@ j: integer; //CQ5054 begin - //if BILLING_AWARE then - //begin + if FOSTFHintWndActive then begin @@ -1290,6 +1293,4 @@ //end CQ5054 end; - - //end //if BILLING_AWARE end; @@ -1315,7 +1316,4 @@ end; end; - - x := 0; - y := 0; try @@ -1398,13 +1396,10 @@ begin try - if BILLING_AWARE then - begin - if FOSTFhintWndActive then - begin - FOSTFhintWindow.ReleaseHandle; - FOSTFHintWndActive := False; - Application.ProcessMessages; - end; - end; + if FOSTFhintWndActive then + begin + FOSTFhintWindow.ReleaseHandle; + FOSTFHintWndActive := False; + Application.ProcessMessages; + end; except on E: Exception do @@ -1518,10 +1513,11 @@ procedure TfrmSignOrders.FormatListForScreenReader; var - ListStateOn : boolean; + ListStateOn : longbool; + Success: longbool; begin //Determine if a screen reader is currently being used. - SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0); - if ListStateOn then - SetItemTextToState + Success := SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0); + if Success and ListStateOn then + SetItemTextToState; end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.dfm (revision 460) @@ -1,9 +1,9 @@ object frmOtherSchedule: TfrmOtherSchedule - Left = 355 - Top = 154 + Left = 544 + Top = 262 AutoScroll = False Caption = 'Order with schedule '#39'OTHER'#39 ClientHeight = 362 - ClientWidth = 341 + ClientWidth = 369 Color = clBtnFace Constraints.MinHeight = 70 @@ -23,5 +23,5 @@ Left = 0 Top = 82 - Width = 341 + Width = 369 Height = 8 Cursor = crVSplit @@ -33,5 +33,5 @@ Left = 0 Top = 0 - Width = 341 + Width = 369 Height = 82 Align = alTop @@ -50,5 +50,5 @@ Left = 52 Top = 4 - Width = 285 + Width = 313 Height = 74 Align = alClient @@ -64,5 +64,5 @@ Left = 0 Top = 90 - Width = 341 + Width = 369 Height = 272 Align = alClient @@ -72,5 +72,5 @@ Left = 1 Top = 1 - Width = 144 + Width = 176 Height = 202 Align = alLeft @@ -79,5 +79,5 @@ object cbo7: TCheckBox Tag = 1 - Left = 45 + Left = 86 Top = 21 Width = 60 @@ -89,5 +89,5 @@ object cbo1: TCheckBox Tag = 2 - Left = 44 + Left = 85 Top = 48 Width = 60 @@ -99,5 +99,5 @@ object cbo2: TCheckBox Tag = 3 - Left = 44 + Left = 85 Top = 75 Width = 60 @@ -109,5 +109,5 @@ object cbo3: TCheckBox Tag = 4 - Left = 44 + Left = 85 Top = 102 Width = 60 @@ -119,5 +119,5 @@ object cbo4: TCheckBox Tag = 5 - Left = 44 + Left = 85 Top = 129 Width = 60 @@ -129,5 +129,5 @@ object cbo5: TCheckBox Tag = 6 - Left = 44 + Left = 85 Top = 156 Width = 60 @@ -139,5 +139,5 @@ object cbo6: TCheckBox Tag = 7 - Left = 44 + Left = 85 Top = 183 Width = 60 @@ -147,7 +147,16 @@ 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 = 152 + Left = 180 Top = 1 Width = 188 @@ -214,11 +223,26 @@ end object btnRemove: TButton - Left = 114 + 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 @@ -226,10 +250,10 @@ Left = 1 Top = 203 - Width = 339 + Width = 367 Height = 68 Align = alBottom TabOrder = 2 DesignSize = ( - 339 + 367 68) object Label1: TLabel @@ -241,5 +265,5 @@ end object btn0k1: TButton - Left = 176 + Left = 204 Top = 43 Width = 75 @@ -251,5 +275,5 @@ end object btnCancel: TButton - Left = 257 + Left = 285 Top = 42 Width = 75 @@ -264,7 +288,16 @@ Left = 64 Top = 8 - Width = 268 + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas (revision 460) @@ -35,4 +35,6 @@ memMessage: TMemo; Splitter1: TSplitter; + btnAdd: TButton; + Button1: TButton; procedure FormCreate(Sender: TObject); procedure btnCancelClick(Sender: TObject); @@ -55,4 +57,5 @@ procedure lstMinuteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure Button1Click(Sender: TObject); private FDaySchedule: array [1..7] of string; @@ -66,4 +69,5 @@ procedure UpdateOnFreeTextInput; function CheckDay(ADayStr: string): string; + public end; @@ -87,5 +91,5 @@ if frmOtherSchedule.ShowModal = mrOK then begin - ASchedule := frmOtherSchedule.FOtherSchedule; + ASchedule := UpperCase(frmOtherSchedule.FOtherSchedule); Result := True; end; @@ -121,4 +125,10 @@ 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 @@ -176,8 +186,11 @@ var i : integer; - TimePart, DayPart: string; + 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 @@ -201,4 +214,5 @@ 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; @@ -368,7 +382,13 @@ 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 @@ -419,5 +439,4 @@ begin inherited; - i := 0; dayStr := ''; timeStr := ''; @@ -437,4 +456,5 @@ 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); @@ -463,5 +483,5 @@ begin inherited; - lstMinute.ItemIndex := -1; + if lstMinute.ItemIndex = -1 then lstMinute.ItemIndex :=0; end; @@ -509,5 +529,5 @@ FFromCheckBox := True; if lstHour.ItemIndex < 0 then Exit; - btnAddClick(Self); + //btnAddClick(Self); FFromCheckBox := False; end; @@ -521,9 +541,21 @@ FFromCheckBox := True; if lstHour.ItemIndex < 0 then Exit; - btnAddClick(Self); + //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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/rODAllergy.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/rODAllergy.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/rODAllergy.pas (revision 460) @@ -49,4 +49,10 @@ end; + TARTClinUser = record + IsClinUser: boolean; + ReasonFailed: string; + AccessChecked: boolean; + end; + function SearchForAllergies(StringToMatch: string): TStrings; function SubsetofSymptoms(const StartFrom: string; Direction: Integer): TStrings; @@ -64,4 +70,5 @@ function RequireOriginatorComments: boolean; function EnableErrorComments: boolean; +function IsARTClinicalUser(var AMessage: string): boolean; implementation @@ -73,4 +80,5 @@ uARTPatchInstalled: TARTPatchInstalled; uGMRASiteParams: TGMRASiteParams; + uARTClinUser: TARTClinUser; function ODForAllergies: TStrings; @@ -326,3 +334,32 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/rODBase.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/rODBase.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/rODBase.pas (revision 460) @@ -68,4 +68,9 @@ end; + TPFSSActive = record + PFSSActive: boolean; + PFSSChecked: boolean; + end; + { General Calls } function AskAnotherOrder(ADialog: Integer): Boolean; @@ -75,5 +80,6 @@ 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); +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 @@ -88,5 +94,5 @@ procedure SetDefaultCoPayToNewOrder(AnOrderID, CoPayInfo:string); procedure ValidateNumericStr(const x, Dom: string; var ErrMsg: string); - +function IsPFSSActive: boolean; { Quick Order Calls } @@ -126,5 +132,5 @@ implementation -uses TRPCB,uOrders; +uses TRPCB, uOrders, uODBase; var @@ -133,4 +139,5 @@ uLastQuantityMsg: string; uMedRoutes: TStringList; + uPFSSActive: TPFSSActive; { Common Internal Calls } @@ -175,20 +182,20 @@ begin IVDurVal := Copy(IVDuration,1,length(IVDuration)-1); - TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + ' hours'; + 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'; + 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'; + 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'; + TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + 'L'; end; end; @@ -371,44 +378,56 @@ end; -procedure ExtractToResponses(Dest: TList); +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; - with RPCBrokerV do while i < Results.Count do - begin - if CharAt(Results[i], 1) = '~' then + 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(Results[i], 2, 255), U, 1), 0); - Instance := StrToIntDef(Piece(Results[i], U, 2), 0); - PromptID := Piece(Results[i], U, 3); + 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 < Results.Count) and (CharAt(Results[i], 1) <> '~') do + while (i < Count) and (CharAt(Strings[i], 1) <> '~') do begin - if CharAt(Results[i], 1) = 'i' then IValue := Copy(Results[i], 2, 255); - if CharAt(Results[i], 1) = 'e' then EValue := Copy(Results[i], 2, 255); - if CharAt(Results[i], 1) = 't' then + 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(Results[i], 2, 255); + 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} -end; - -procedure LoadResponses(Dest: TList; const OrderID: string); + finally + TempBroker.Free; + end; +end; + +procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean); begin CallV('ORWDX LOADRSP', [OrderID]); - ExtractToResponses(Dest); + ExtractToResponses(Dest, HasObjects); end; @@ -427,4 +446,6 @@ 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; @@ -659,4 +680,14 @@ 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 } Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/rODDiet.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/rODDiet.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/rODDiet.pas (revision 460) @@ -31,4 +31,5 @@ Alarms: string; OPMaxDays: integer; + OPDefaultDiet: integer; end; @@ -39,5 +40,5 @@ procedure AppendTFProducts(Dest: TStrings); function SubSetOfDiets(const StartFrom: string; Direction: Integer): TStrings; -function SubSetOfOPDiets(const StartFrom: string; Direction: Integer): TStrings; +function SubSetOfOPDiets: TStrings; procedure OrderLateTray(NewOrder: TOrder; Meal: Char; const MealTime: string; Bagged: Boolean); function IsolationID: string; @@ -48,4 +49,6 @@ function OutpatientPatchInstalled: boolean; function UserHasFHAUTHKey: boolean; +procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = ''); +function OutpatientLocationConfigured(ALocation: string): boolean; @@ -96,4 +99,6 @@ else OPMaxDays := 30; + if Results.Count > 4 then + OPDefaultDiet := StrToIntDef(Results[4], 0) end; end; @@ -131,7 +136,7 @@ end; -function SubSetOfOPDiets(const StartFrom: string; Direction: Integer): TStrings; -begin - CallV('ORWDFH OPDIETS', [StartFrom, Direction]); +function SubSetOfOPDiets: TStrings; +begin + CallV('ORWDFH OPDIETS', [nil]); Result := RPCBrokerV.Results; end; @@ -176,7 +181,7 @@ if not PatchChecked then begin - PatchInstalled := False; -{ TODO -oRich V. -cOutpatient Meals : Uncomment when patch available - need number } - //PatchInstalled := ServerHasPatch('FH_TEST*1.0*1'); + //PatchInstalled := True; + { TODO -oRich V. -cOutpatient Meals : Uncomment when available } + PatchInstalled := (PackageVersion('FH') >= '5.5'); PatchChecked := True; end; @@ -195,3 +200,15 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/rODLab.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/rODLab.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/rODLab.pas (revision 460) @@ -22,4 +22,9 @@ 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 @@ -27,4 +32,29 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/rOrders.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/rOrders.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/rOrders.pas (revision 460) @@ -38,4 +38,5 @@ ParentID : string; LinkObject: TObject; + EnteredInError: Integer; //AGP Changes 26.12 PSI-04-053 procedure Assign(Source: TOrder); procedure Clear; @@ -604,4 +605,7 @@ 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; @@ -680,6 +684,6 @@ 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; + 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 @@ -1126,9 +1130,12 @@ var DelayEvent, x, TheOrder: string; - Idx,PickupIdx, ForIMOResponses: integer; + Idx, tmpOrderGroup, PickupIdx, ForIMOResponses: integer; IfUDGrp: Boolean; IfUDGrpForQO: Boolean; + temp: string; begin ForIMOResponses := 0; + tmpOrderGroup := 0; + temp := ''; if ForIMO then ForIMOResponses := 1; PickupIdx := 0; @@ -1139,9 +1146,12 @@ begin Delete(TheOrder,1,1); - if CheckOrderGroup(TheOrder)=1 then IfUDGrp := True else IfUDGrp := False; + 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 @@ -1451,33 +1461,30 @@ 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); - + 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); @@ -1510,5 +1517,6 @@ CallV('ORWDXA DCREASON', [nil]); ExtractItems(Dest, RPCBrokerV.Results, 'DCReason'); - DefaultIEN := StrToIntDef(Piece(ExtractDefault(RPCBrokerV.Results, 'DCReason'), U, 1), 0); + //AGP Change 26.15 for PSI-04-63 + //DefaultIEN := StrToIntDef(Piece(ExtractDefault(RPCBrokerV.Results, 'DCReason'), U, 1), 0); end; @@ -1528,5 +1536,4 @@ SetOrderFromResults(AnOrder); AnOrder.ParentID := AParentID; - end; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/uODBase.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/uODBase.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/uODBase.pas (revision 460) @@ -22,6 +22,10 @@ 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 @@ -118,4 +122,72 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Orders/uOrders.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Orders/uOrders.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Orders/uOrders.pas (revision 460) @@ -58,5 +58,5 @@ procedure QuickOrderListEdit; function RefNumFor(AnOwner: TComponent): Integer; -procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char); +procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char; PrintLoc : Integer =0); procedure SetFontSize( FontSize: integer); procedure NextMove(var NMRec: TNextMoveRec; LastIndex: Integer; NewIndex: Integer); @@ -74,7 +74,9 @@ MedsDisp : Integer; ClinDisp : Integer; //IMO +NurDisp : Integer; IVDisp : Integer; CsltDisp : Integer; ProcDisp : Integer; +ImgDisp : Integer; NonVADisp: Integer; MedsInDlgIen : Integer; @@ -94,9 +96,9 @@ uses fODDiet, fODMisc, fODGen, fODMedIn, fODMedOut, fODText, fODConsult, fODProc, fODRad, - fODLab, fODMeds, fODMedIV, fODVitals, fODAuto, fODAllgy, fOMNavA, rCore, uCore, fFrame, + 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; + UBAGlobals, fClinicWardMeds, uTemplateFields; var @@ -142,4 +144,7 @@ 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'; @@ -152,7 +157,7 @@ STEP_FORWARD = 1; STEP_BACK = -1; - TX_NOINPT = 'You can not place inpatient medication order on a clinic location for selected inpatient.'; + TX_NOINPT = ': You cannot place inpatient medication orders from a clinic location for selected patient.'; TX_IMO_WARNING1 = 'You are '; - TX_IMO_WARNING2 = ' Clinic Medication orders. The New orders will be saved as Clinic Medication orders and will NOT be available in BCMA'; + TX_IMO_WARNING2 = ' Clinic Orders. The New orders will be saved as Clinic Orders and MAY NOT be available in BCMA'; @@ -200,9 +205,10 @@ 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_ALLERGY: DialogClass := TfrmODAllergy; OD_AUTOACK: DialogClass := TfrmODAuto; else Exit; @@ -391,7 +397,17 @@ else begin - ResolvedDialog.DisplayGroup := InptDisp; - ResolvedDialog.DialogIEN := MedsInDlgIen; - ResolvedDialog.FormID := MedsInDlgFormId; + //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; @@ -452,6 +468,8 @@ 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'); @@ -817,4 +835,5 @@ 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 @@ -826,5 +845,5 @@ end; end; - //jd imo change end + //jd imo change end *} if (ResolvedDialog.DisplayGroup = InptDisp) or (ResolvedDialog.DisplayGroup = OutptDisp) or @@ -865,4 +884,5 @@ 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 @@ -1003,5 +1023,4 @@ begin ShowModal; - //Application.ProcessMessages; Result := uOrderDialog.AcceptOK; uOrderDialog.Destroy; @@ -1010,5 +1029,4 @@ begin Show; - //Application.ProcessMessages; Result := True; end; @@ -1050,5 +1068,12 @@ OrdList: TList; theOrder: TOrder; -begin + // 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; @@ -1057,4 +1082,5 @@ RetrieveOrderFields(OrdList, 0, 0); Result := TOrder(OrdList.Items[0]).Text; + if Assigned(OrdList) then OrdList.Free; //CQ:7554 end; @@ -1349,5 +1375,5 @@ param2 := FieldsForEditRenewOrder.StopTime; end; - UBAGlobals.SourceOrderID := AList[i]; //hds6265 added + UBAGlobals.SourceOrderID := AList[i]; //hds6265 added ExecuteChangeRenewedOrder(AList[i], param1, param2, txtOrder); AnOrder := TOrder.Create; @@ -1393,5 +1419,5 @@ var i: Integer; - xx,xy: string; + xx: string; IsIMOOD,ForIVAlso: boolean; begin @@ -1602,4 +1628,9 @@ 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; @@ -1639,5 +1670,5 @@ -procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char); +procedure PrintOrdersOnSignRelease(OrderList: TStringList; Nature: Char; PrintLoc : Integer =0); const TX_NEW_LOC1 = 'The patient''s location has changed to '; @@ -1652,11 +1683,15 @@ PrintIt: Boolean; begin - CurrentLocationForPatient(Patient.DFN, ALocation, AName, ASvc); - if (ALocation > 0) and (ALocation <> Encounter.Location) then - begin - Encounter.Location := ALocation; - if InfoBox(TX_NEW_LOC1 + AName + TX_NEW_LOC2, TC_NEW_LOC, MB_YESNO) = IDYES - then Encounter.Location := ALocation; - end; + 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); @@ -1747,5 +1782,5 @@ if CharAt(AnID,1) = 'X' then actName := 'change'; if CharAt(AnID,1) = 'C' then actName := 'copy'; - x := 'You can not ' + actName + ' the clinical medication order.'; + 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))); @@ -1774,5 +1809,5 @@ if (not AllowActionOnIMO(AnEventType)) then begin - x := 'You can not renew the the clinical medication order.'; + x := 'You cannot renew the clinical medication order.'; x := RetrieveOrderText(Piece(AnID,'^',2)) + #13#13#10 + x; UnlockOrder(Piece(AnID,'^',2)); @@ -1809,3 +1844,4 @@ OriginalMedsInHeight := 0; OriginalNonVAMedsHeight := 0; + end. Index: cprs/branches/foia-cprs/CPRS-Chart/README.TXT =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/README.TXT (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/README.TXT (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.dfm (revision 460) @@ -25,5 +25,5 @@ Top = 0 Width = 632 - Height = 383 + Height = 375 VertScrollBar.Tracking = True Align = alClient @@ -36,17 +36,14 @@ TabOrder = 0 end - object pnlBottom: TPanel + object pnlBottom: TScrollBox Left = 0 - Top = 383 + Top = 375 Width = 632 - Height = 30 + Height = 38 Align = alBottom TabOrder = 1 - DesignSize = ( - 632 - 30) object lblFootnote: TStaticText Left = 196 - Top = 9 + Top = 7 Width = 134 Height = 17 @@ -57,8 +54,7 @@ object btnCancel: TButton Left = 551 - Top = 5 + Top = 3 Width = 75 Height = 21 - Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' @@ -68,8 +64,7 @@ object btnOK: TButton Left = 472 - Top = 5 + Top = 3 Width = 75 Height = 21 - Anchors = [akTop, akRight] Caption = 'OK' ModalResult = 1 @@ -79,5 +74,5 @@ object btnAll: TButton Left = 6 - Top = 5 + Top = 3 Width = 75 Height = 21 @@ -88,5 +83,5 @@ object btnNone: TButton Left = 86 - Top = 5 + Top = 3 Width = 75 Height = 21 @@ -97,5 +92,5 @@ object btnPreview: TButton Left = 360 - Top = 5 + Top = 3 Width = 75 Height = 21 Index: cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.pas (revision 460) @@ -10,5 +10,5 @@ TfrmTemplateDialog = class(TForm) sbMain: TScrollBox; - pnlBottom: TPanel; + pnlBottom: TScrollBox; btnCancel: TButton; btnOK: TButton; @@ -42,4 +42,5 @@ FCheck4Required: boolean; FSilent: boolean; + procedure SizeFormToCancelBtn(); procedure ChkAll(Chk: boolean); procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); @@ -71,5 +72,5 @@ implementation -uses dShared, uConst, uTemplateFields, fRptBox, uInit; +uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc; {$R *.DFM} @@ -391,6 +392,6 @@ procedure TfrmTemplateDialog.BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); var - bGap, Indent, i, idx, idx2, p1, p2: integer; - EID, ID, PID, DlgProps, tmp, txt, tmpID, ObjID: string; + bGap, Indent, i, idx, p1, p2: integer; + EID, ID, PID, DlgProps, tmp, txt, tmpID: string; pctrl, ctrl: TControl; pnl: TPanel; @@ -637,4 +638,6 @@ 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; @@ -738,4 +741,16 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/Templates/uTemplateFields.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Templates/uTemplateFields.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Templates/uTemplateFields.pas (revision 460) @@ -918,5 +918,5 @@ edt.Text := s; end; - edt.SelStart := edt.GetTextLen; + edt.SelStart := edt.GetTextLen; end; Index: cprs/branches/foia-cprs/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas (revision 460) @@ -12,11 +12,20 @@ // ************************************************************************ // -// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $ -// File generated on 2/20/2003 12:37:40 PM from Type Library described below. - -// ************************************************************************ // -// Type Lib: C:\Program Files\Sentillion\Sdk\WindowsComponents\VergenceContextor.dll (1) -// LIBID: {30AFBABD-5FD3-11D3-8727-0060B0B5E137} -// LCID: 0 +// 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: @@ -25,14 +34,14 @@ // 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. -{$WARN SYMBOL_PLATFORM OFF} -{$WRITEABLECONST ON} -{$VARPROPSETTER ON} interface -uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants; - - +uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; // *********************************************************************// @@ -162,13 +171,14 @@ procedure Suspend; safecall; procedure Resume; safecall; - function Get_State: ContextorState; safecall; - function GetPrivilege(const subj: WideString): AccessPrivilege; safecall; - function Get_CurrentContext: IContextItemCollection; 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; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; safecall; procedure SetSurveyResponse(const reason: WideString); safecall; - function Get_NotificationFilter: WideString; safecall; + function Get_NotificationFilter: WideString; safecall; procedure Set_NotificationFilter(const filter: WideString); safecall; - function Get_Name: WideString; safecall; + function Get_Name: WideString; safecall; property State: ContextorState read Get_State; property CurrentContext: IContextItemCollection read Get_CurrentContext; @@ -189,8 +199,9 @@ procedure Resume; dispid 3; property State: ContextorState readonly dispid 4; - function GetPrivilege(const subj: WideString): AccessPrivilege; dispid 5; + 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; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; dispid 8; procedure SetSurveyResponse(const reason: WideString); dispid 9; property NotificationFilter: WideString dispid 10; @@ -205,5 +216,5 @@ IContextParticipant = interface(IDispatch) ['{3E3DD272-998E-11D0-808D-00A0240943E4}'] - function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall; + function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; safecall; procedure ContextChangesAccepted(contextCoupon: Integer); safecall; procedure ContextChangesCanceled(contextCoupon: Integer); safecall; @@ -219,5 +230,5 @@ IContextParticipantDisp = dispinterface ['{3E3DD272-998E-11D0-808D-00A0240943E4}'] - function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808; + function ContextChangesPending(contextCoupon: Integer; var reason: WideString): WideString; dispid 1610743808; procedure ContextChangesAccepted(contextCoupon: Integer); dispid 1610743809; procedure ContextChangesCanceled(contextCoupon: Integer); dispid 1610743810; @@ -233,11 +244,11 @@ IContextItemCollection = interface(IDispatch) ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}'] - function Count: Integer; safecall; + 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; + function Present(key: OleVariant): IContextItem; safecall; + function Get__NewEnum: IUnknown; safecall; + function Item(key: OleVariant): IContextItem; safecall; property _NewEnum: IUnknown read Get__NewEnum; end; @@ -250,11 +261,11 @@ IContextItemCollectionDisp = dispinterface ['{AC4C0271-615A-11D3-84B5-0000861FDD4F}'] - function Count: Integer; dispid 1; + 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; + function Present(key: OleVariant): IContextItem; dispid 5; property _NewEnum: IUnknown readonly dispid -4; - function Item(key: OleVariant): IContextItem; dispid 0; + function Item(key: OleVariant): IContextItem; dispid 0; end; @@ -266,17 +277,17 @@ IContextItem = interface(IDispatch) ['{AC4C0273-615A-11D3-84B5-0000861FDD4F}'] - function Get_Subject: WideString; safecall; + function Get_Subject: WideString; safecall; procedure Set_Subject(const pVal: WideString); safecall; - function Get_Role: WideString; safecall; + function Get_Role: WideString; safecall; procedure Set_Role(const pVal: WideString); safecall; - function Get_Prefix: WideString; safecall; + function Get_Prefix: WideString; safecall; procedure Set_Prefix(const pVal: WideString); safecall; - function Get_Suffix: WideString; safecall; + function Get_Suffix: WideString; safecall; procedure Set_Suffix(const pVal: WideString); safecall; - function Get_Name: WideString; safecall; + function Get_Name: WideString; safecall; procedure Set_Name(const pVal: WideString); safecall; - function Get_Value: WideString; safecall; + function Get_Value: WideString; safecall; procedure Set_Value(const pVal: WideString); safecall; - function Clone: IContextItem; safecall; + function Clone: IContextItem; safecall; property Subject: WideString read Get_Subject write Set_Subject; property Role: WideString read Get_Role write Set_Role; @@ -300,5 +311,5 @@ property Name: WideString dispid 5; property Value: WideString dispid 6; - function Clone: IContextItem; dispid 7; + function Clone: IContextItem; dispid 7; end; @@ -311,7 +322,7 @@ ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}'] procedure StartResponseContextChange; safecall; - function EndResponseContextChange(commit: WordBool; - const aContextItemCollection: IContextItemCollection; - var noContinue: WordBool): OleVariant; safecall; + function EndResponseContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection; + var noContinue: WordBool): OleVariant; safecall; procedure CommitContextChange; safecall; procedure CancelContextChange; safecall; @@ -326,7 +337,7 @@ ['{CBC6D968-9F6D-416A-8AA7-99172E588DF0}'] procedure StartResponseContextChange; dispid 1; - function EndResponseContextChange(commit: WordBool; - const aContextItemCollection: IContextItemCollection; - var noContinue: WordBool): OleVariant; dispid 2; + function EndResponseContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection; + var noContinue: WordBool): OleVariant; dispid 2; procedure CommitContextChange; dispid 3; procedure CancelContextChange; dispid 4; @@ -386,5 +397,5 @@ IResponseDialog = interface(IDispatch) ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}'] - function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall; + function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; safecall; end; @@ -396,5 +407,5 @@ IResponseDialogDisp = dispinterface ['{9D33ECF1-8277-11D3-8525-0000861FDD4F}'] - function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1; + function ProcessSurveyResults(responses: OleVariant; noContinue: WordBool): UserResponse; dispid 1; end; @@ -430,4 +441,93 @@ 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} + @@ -453,5 +553,5 @@ procedure CreateControl; procedure InitControlData; override; - function Get_CurrentContext: IContextItemCollection; + function Get_CurrentContext: IContextItemCollection; public procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool; @@ -459,7 +559,8 @@ procedure Suspend; procedure Resume; - function GetPrivilege(const subj: WideString): AccessPrivilege; + function GetPrivilege(const subj: WideString): AccessPrivilege; procedure StartContextChange; - function EndContextChange(commit: WordBool; const aContextItemCollection: IContextItemCollection): UserResponse; + function EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; procedure SetSurveyResponse(const reason: WideString); property ControlInterface: IContextor read GetControlInterface; @@ -487,4 +588,69 @@ 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 @@ -499,4 +665,97 @@ 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 @@ -511,4 +770,61 @@ 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 @@ -523,9 +839,67 @@ 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; - -resourcestring - dtlServerPage = 'ActiveX'; - +} implementation @@ -541,4 +915,189 @@ 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; @@ -576,7 +1135,7 @@ end; -function TContextorControl.Get_CurrentContext: IContextItemCollection; -begin - Result := DefaultInterface.CurrentContext; +function TContextorControl.Get_CurrentContext: IContextItemCollection; +begin + Result := DefaultInterface.Get_CurrentContext; end; @@ -597,5 +1156,5 @@ end; -function TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege; +function TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege; begin Result := DefaultInterface.GetPrivilege(subj); @@ -607,6 +1166,6 @@ end; -function TContextorControl.EndContextChange(commit: WordBool; - const aContextItemCollection: IContextItemCollection): UserResponse; +function TContextorControl.EndContextChange(commit: WordBool; + const aContextItemCollection: IContextItemCollection): UserResponse; begin Result := DefaultInterface.EndContextChange(commit, aContextItemCollection); @@ -628,4 +1187,126 @@ 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 @@ -638,4 +1319,211 @@ 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 @@ -648,4 +1536,91 @@ 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 @@ -658,8 +1633,117 @@ 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('ActiveX',[TContextorControl]); -end; - + RegisterComponents('Kernel',[TContextorControl]); + RegisterComponents('Kernel',[TContextor, TContextItemCollection, TContextItem, TResponseDialog, + TContextorParticipant]); +end; +} end. Index: cprs/branches/foia-cprs/CPRS-Chart/Vitals/uVitals.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/Vitals/uVitals.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/Vitals/uVitals.pas (revision 460) @@ -5,5 +5,7 @@ uses - SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms; + SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms + , TRPCB + ; const @@ -32,6 +34,7 @@ procedure SetVitalsMetric(const Value: boolean); procedure SetVitCVPmmHg(const Value: boolean); -function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE): boolean; +function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; function IsNumericWeight(const x: string): Boolean; +procedure CloseVitalsDLL; const @@ -77,6 +80,53 @@ 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 @@ -128,7 +178,20 @@ 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; @@ -545,5 +608,6 @@ end; -function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE): boolean; + +function ValidVitalsDate(var ADate: TFMDateTime; SkipFirst: boolean = FALSE; Show: boolean = true): boolean; //AGP Change 26.1 var frmVitalsDate: TfrmVitalsDate; @@ -571,4 +635,5 @@ try frmVitalsDate.dteVitals.FMDateTime := ADate; + frmVitalsDate.btnNow.Visible := Show; //AGP Change 26.1 if frmVitalsDate.ShowModal = mrOK then ADate := frmVitalsDate.dteVitals.FMDateTime; @@ -581,4 +646,5 @@ end; end; + function IsNumericWeight(const x: string): Boolean; var Index: cprs/branches/foia-cprs/CPRS-Chart/dShared.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/dShared.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/dShared.dfm (revision 460) @@ -14,582 +14,1158 @@ Bitmap = { 494C01011E002200040010001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000009000000001001000000000000048 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F000000000000000000000000 - 00000000000000000000000000000000FF7FFF7F00000000000000000000007C - 007C007C007C00000000000000000000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104218631863186318631863 - 18631863186318631863186318630000FF7FFF7F104218631863007C007C007C - 007C007C007C007C007C186318630000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F18630000FF7FFF7F10421863007C007CFF7FFF7F - FF7FFF7FFF7FFF7F007C007C18630000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7F18630040FF7F - FF7FFF7F1863FF7FFF7FFF7F18630000FF7FFF7F1042007C007C007C007CFF7F - FF7FFF7F1863FF7FFF7F007C007C0000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7F0040007C0040 - FF7FFF7F1F001F001863FF7F18630000FF7FFF7F1042007C007CFF7F007C007C - FF7FFF7F1F001F001863007C007C0000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7F007CE07F0040 - FF7FFF7FFF031F001F00FF7F18630000FF7FFF7F007C007CFF7F007CFF7F007C - 007CFF7FFF031F001F00FF7F007C007CFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7FFF7F007C0040 - FF7FFF7F1F00FF7FFF7FFF7F18630000FF7FFF7F007C007CFF7FFF7F007CFF7F - 007C007CFF7FFF7FFF7FFF7F007C007CFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F10421863FF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F18630000FF7FFF7F007C007CFF7FFF7FFF7FFF7F - FF7F007C007CFF7FFF7FFF7F007C007CFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104218631863186318631863 - 18631863186318631863186318630000FF7FFF7F1042007C007C186318631863 - 1863FF7F007C007C1863007C007C0000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104218631000100010001000 - 10001000000000000000000018630000FF7FFF7F1042007C007C100010001000 - 10001000FF7F007C007C007C007C0000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104218631000100010001000 - 10001000FF7F0000FF7F000018630000FF7FFF7F10421863007C007C10001000 - 10001000FF7FFF7F007C007C18630000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104218631863186318631863 - 18631863186318631863186318630000FF7FFF7F104218631863007C007C007C - 007C007C007C007C007C186318630000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F104210421042104210421042 - 10421042104210421042104210420000FF7FFF7F10421042104210421042007C - 007C007C007C10421042104210420000FF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7F0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F104210421863FF7F10421042 - 00000042E07FE07FE07FE07FE07F00420000FF7F104210421863FF7F10421042 - 0000E07FE07FE07FE07FE07FE07FE07F00000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7FFF7F1042104210421863 - 000018631863186318631863186318630000FF7FFF7FFF7F1042104210421863 - 0000186318631863186318631863186300000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000000000000000000000000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F000000000000FF7FFF7F1042104218631863FF7F - 000018631042000018631863000018630000FF7FFF7F1042104218631863FF7F - 0000186310420000186318630000186300000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000104210421042104200000000E07FFF7F0000000000000000 - 000000000000000000000000000010420000FF7FFF7F10421863186310421863 - 000018630000000000001863186318630000FF7FFF7F10421863186310421863 - 0000186300000000000018631863186300000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000104210421042104200000000FF7FE07F0000104210421042 - 104210421042104210421042104210420000FF7F1042FF7F1863FF7F18631042 - 000018631863186300001863000018630000FF7F1042FF7F1863FF7F18631042 - 0000186318631863000018630000186300000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000104200000000104200000000E07FFF7F0000104210420000 - 104210420000104200000000000010420000FF7F1042FF7F1042186318631863 - 000018631863186318631863186318630000FF7F1042FF7F1042186318631863 - 0000186318631863186318631863186300000000000000000000000000000000 - 0000000000001042104210421042104200000000FF7FE07F0000104200000000 - 000010421042104210421042104210420000FF7F10421863FF7F18631863FF7F - 000010001F001F001F001F001F0010000000FF7F10421863FF7F18631863FF7F - 00001F001F001F001F001F001F001F000000FF7F0000FF7F0000104210421042 - 104210421042104200000000104210420000FF7F0000FF7F0000104210421042 - 000010420000000000000000104210420000FF7FFF7F1042FF7FFF7F10421863 - 18630000000000000000000000000000FF7FFF7FFF7F1042FF7FFF7F10421863 - 000000000000000000000000000000000000FF7F104200000000104210421042 - 104210421042104210421042104210420000FF7F104200000000104210421042 - 104210421042104210421042104210420000FF7FFF7F10421042FF7FFF7F1863 - 104218631863186310421042FF7FFF7FFF7FFF7FFF7F10421042FF7FFF7F1863 - 104218631863186310421042FF7FFF7FFF7FFF7FFF7FFF7F0000104210420000 - 104210420000000010420000000010420000FF7FFF7FFF7F0000104210420000 - 10421042000000001042000000001042000010421042104210421042FF7FFF7F - FF7FFF7FFF7F10421042104210421042FF7F10421042104210421042FF7FFF7F - FF7FFF7FFF7F10421042104210421042FF7FFF7FFF7FFF7F0000104200000000 - 000010421042104210421042104210420000FF7FFF7FFF7F0000104200000000 - 0000104210421042104210421042104200001042FF7F18631863104210421042 - 10421042104210421863186318631042FF7F1042FF7F18631863104210421042 - 10421042104210421863186318631042FF7FFF7FFF7FFF7F0000104210421042 - 000010420000104200000000000010420000FF7FFF7FFF7F0000104210421042 - 00001042000010420000000000001042000010421863FF7F1863186318631042 - 104210421863FF7F1863186318631042FF7F10421863FF7F1863186318631042 - 104210421863FF7F1863186318631042FF7FFF7FFF7FFF7F0000104210421042 - 104210421042104210421042104210420000FF7FFF7FFF7F0000104210421042 - 104210421042104210421042104210420000FF7F10421863FF7FFF7F1042FF7F - 1042FF7F10421863FF7FFF7F1042FF7FFF7FFF7F10421863FF7FFF7F1042FF7F - 1042FF7F10421863FF7FFF7F1042FF7FFF7FFF7FFF7FFF7F0000100010001000 - 100010001000100010001000100010000000FF7FFF7FFF7F0000100010001000 - 100010001000100010001000100010000000FF7FFF7F104210421042FF7FFF7F - 1042FF7FFF7F104210421042FF7FFF7FFF7FFF7FFF7F104210421042FF7FFF7F - 1042FF7FFF7F104210421042FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F1042 - 10421042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042 - 10421042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F00000000000000000000FF7F0000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F00000000FF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000000000000000000000000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000000000000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000104210421042104200000000E07FFF7F0000000000000000 - 0000000000000000000000000000104200000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000186318631863186300000000E07FFF7F0000000000000000 - 0000000000000000000000000000186300000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000104210421042104200000000FF7FE07F0000104210421042 - 1042104210421042104210421042104200000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186318631863 - 1863186318631863186318631863186300000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000104200000000104200000000E07FFF7F0000104210420000 - 1042104200001042000000000000104200000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000186300000000186300000000E07FFF7F0000186310420000 - 1863186300001863000000000000186300000000000000000000000000000000 - 0000000000001042104210421042104200000000FF7FE07F0000104200000000 - 0000104210421042104210421042104200000000000000000000000000000000 - 0000000000001863186318631863186300000000FF7FE07F0000186300000000 - 000018631863186318631863186318630000FF7F0000FF7F0000104210421042 - 104210421042104200000000104210420000FF7F0000FF7F0000104210421042 - 000010420000000000000000104210420000FF7F0000FF7F0000186318631863 - 186318631863186300000000186318630000FF7F0000FF7F0000186318631863 - 000018630000000000000000186318630000FF7F104200000000104210421042 - 104210421042104210421042104210420000FF7F104200000000104210421042 - 104210421042104210421042104210420000FF7F104200000000186318631863 - 186318631863186318631863186318630000FF7F104200000000186318631863 - 186318631863186318631863186318630000FF7FFF7FFF7F0000104210420000 - 104210420000000010420000000010420000FF7FFF7FFF7F0000104210420000 - 104210420000000010420000000010420000FF7FFF7FFF7F0000186310420000 - 186318630000000018630000000018630000FF7FFF7FFF7F0000186310420000 - 186318630000000018630000000018630000FF7FFF7FFF7F0000104200000000 - 000010421042104210421042104210420000FF7FFF7FFF7F0000104200000000 - 000010421042104210421042104210420000FF7FFF7FFF7F0000186300000000 - 000018631863186318631863186318630000FF7FFF7FFF7F0000186300000000 - 000018631863186318631863186318630000FF7FFF7FFF7F0000104210421042 - 000010420000104200000000000010420000FF7FFF7FFF7F0000104210421042 - 000010420000104200000000000010420000FF7FFF7FFF7F0000186318631863 - 000018630000186300000000000018630000FF7FFF7FFF7F0000186318631863 - 000018630000186300000000000018630000FF7FFF7FFF7F0000104210421042 - 104210421042104210421042104210420000FF7FFF7FFF7F0000104210421042 - 104210421042104210421042104210420000FF7FFF7FFF7F0000186318631863 - 186318631863186318631863186318630000FF7FFF7FFF7F0000186318631863 - 186318631863186318631863186318630000FF7FFF7FFF7F0000100010001000 - 100010001000100010001000100010000000FF7FFF7FFF7F0000100010001000 - 100010001000100010001000100010000000FF7FFF7FFF7F00001F001F001F00 - 1F001F001F001F001F001F001F001F000000FF7FFF7FFF7F00001F001F001F00 - 1F001F001F001F001F001F001F001F000000FF7FFF7FFF7FFF7F000000000000 - 00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000 - 00000000000000000000000000000000FF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F00000000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F00000000000000000000FF7F0000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F00000000FF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F000000000000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000186318631863104200000000E07FFF7F0000000000000000 - 000000000000000000000000000010420000FF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F00000000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186318631863 - 186318631863186318631863186318630000FF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000FF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000186300000000186300000000E07FFF7F0000186310420000 - 186318630000186300000000000018630000FF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7F0000E07F1863 - E07F1863E07F1863E07F1863E07F0000FF7F0000000000000000000000000000 - 0000000000001863186318631863186300000000FF7FE07F0000186300000000 - 000018631863186318631863186318630000FF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7F00000000 - 000000000000000000000000000000000000FF7F0000FF7F0000186318631863 - 186318631863186300000000186318630000FF7F0000FF7F0000186318631863 - 000018630000000000000000186318630000FF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F104200000000186318631863 - 186318631863186318631863186318630000FF7F104200000000186318631863 - 186318631863186318631863186318630000FF7FFF7F00000000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186310420000 - 186318630000000018630000000018630000FF7FFF7FFF7F0000186310420000 - 186318630000000018630000000018630000FF7FFF7FFF7F0000FF7FE07FFF7F - E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07F - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000 - 000018631863186318631863186318630000FF7FFF7FFF7F0000186300000000 - 000018631863186318631863186318630000FF7FFF7FFF7F0000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186318631863 - 000018630000186300000000000018630000FF7FFF7FFF7F0000186318631863 - 000018630000186300000000000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186318631863 - 186318631863186318631863186318630000FF7FFF7FFF7F0000186318631863 - 186318631863186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000010001F001F00 - 1F001F001F001F001F001F001F0010000000FF7FFF7FFF7F000010001F001F00 - 1F001F001F001F001F001F001F0010000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000 - 00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000 - 00000000000000000000000000000000FF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F000000000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F00001863186300000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000FF7F0000FF7FFF7FFF7F0000186300000000 - 000000001863186318630000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000186300000000E07FFF7F0000000000000000 - 0000000000000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000000000000000 - 0000000000000000000000000000186300000000FF7FE07F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000000000000000018630000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186300001863 - 0000186318631863186318631863186300000000E07FFF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000186300001863 - 0000186300000000000000000000186300000000FF7FE07F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000000000000000018630000FF7FFF7FFF7F0000000000000000000000000000 - 0000000000001863186318631863186300000000FF7FE07F0000186300001863 - 000018631863186318631863186318630000FF7F0000FF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7F0000FF7F0000186300001863 - 000018630000000000000000000018630000FF7F0000FF7F0000186300001863 - 000018630000000000000000000018630000FF7F104200000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000018630000000018630000FF7FFF7FFF7FFF7F104200000000186300001863 - 000018631863186318631863186318630000FF7F104200000000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7F00000000FF7F00000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863 - 000018630000000018630000000018630000FF7FFF7FFF7F0000186300001863 - 000018630000000018630000000018630000FF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 186300000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F - 000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863 - 000000000000000000000000000000000000FF7FFF7FFF7F0000186300001863 - 000000000000000000000000000000000000FF7FFF7FFF7F0000FF7F00000000 - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000 - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000186300000000 - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000186318630000FF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F000018630000FF7FFF7FFF7F0000FF7F00000000 - 00000000FF7FFF7FFF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000000000000000 - 000000000000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000186300001863 - 000018630000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000FF7F00000000000000000000000000000000 - 0000000000001863186318631863186300000000FF7FE07F0000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7F0000FF7FFF7FFF7F0000000000000000000000000000 - 000000000000FF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F0000186300001863 - 000018630000000000000000000018630000FF7F0000FF7F0000186300001863 - 000018630000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7F104200000000186300001863 - 000018631863186318631863186318630000FF7F104200000000186300001863 - 000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000 - 0000FF7F00000000FF7F0000FF7FFF7FFF7FFF7F104200000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863 - 000018630000000018630000000000000000FF7FFF7FFF7F0000186300001863 - 000018630000000018630000000000000000FF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7F00000000FF7F00000000FF7F0000FF7FFF7FFF7F0000186300001863 - 00001863186318631863000018630000FF7FFF7FFF7FFF7F0000186300001863 - 00001863186318631863000018630000FF7FFF7FFF7FFF7F0000FF7F00000000 - FF7F000000000000FF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863 - 0000186318631863186300000000FF7FFF7FFF7FFF7FFF7F0000186300001863 - 0000186318631863186300000000FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 000000000000000000000000000000000000FF7FFF7FFF7F0000186300000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F - 1863E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 00000000FF7FFF7FFF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000FF7F0000FF7FFF7FFF7F0000186300000000 - 000000001863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7F0000000000000000 - 0000000000000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000000000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7F0000FF7FFF7FFF7F0000000000000000000000000000 - 000000000000FF7FFF7FFF7FFF7FFF7F00000000FF7FE07F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000000000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7F0000FF7F0000FF7F0000FF7F - 0000FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863 - 186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000FF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F104200000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F104200000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000 - 000018631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7F0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7F00000000FF7F0000000000000000FF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7F00000000FF7F0000000000000000FF7FFF7FFF7F0000186318631863 - 186318630000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - FF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7F0000186300000000 - 18631863000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000186318631863 - 1863186300000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 000000000000F75E0000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 000000000000F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F00000000F75E0000FF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F00000000F75E0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07F00000000 - 0000E07F000000420000F75E0000FF7FFF7FFF7FFF7FFF7F0000E07F00000000 - 0000E07F000000420000F75E0000FF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F00000042004200000000FF7FFF7FFF7F000000000000000000000000 - 0000E07F00000042004200000000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F - 000000000000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F00000000E07FF75EE07FF75E - E07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000004200420000FF7FFF7FFF7FFF7F0000E07F000000000000E07F - 0000F75E0000004200420000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7F0000E07FF75EE07F - F75EE07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F - 0000F75E0000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7F0000E07FF75E - E07FF75EE07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7F0000E07F00000000 - 0000E07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F - 000000000000004200420000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7F00000000 - 00000000000000000000000000000000FF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F0000004200420000FF7FFF7FFF7FFF7F000000000000000000000000 - 0000EF3D0000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F - E07FE07F0000004200420000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F - EF3DEF3D0000004200420000FF7FFF7FFF7FFF7FFF7F00000000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 000000000000000000420000FF7FFF7FFF7FFF7FFF7F00000000000000000000 - 000000000000000000420000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7F - E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F - FF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D000000000000FF7FFF7FFF7FFF7FFF7F0000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D000000000000FF7FFF7FFF7FFF7FFF7FFF7FEF3D000000000000 - 0000EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000E07F0042 - E07F0042E07F004200000000FF7FFF7FFF7FFF7FFF7FFF7F000000000042E07F - 0042E07F0042E07F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3D0000000000000000 - EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 - 0042E07F0042E07F004200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 - E07F0042E07F0042E07F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3D - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3D - 0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F424D3E000000000000003E000000 + 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 @@ -640,246 +1216,486 @@ Bitmap = { 494C010108000900040014001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600 - 000000000000360000002800000050000000300000000100100000000000001E - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F00000000 - 000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000010421042 - 10421042104200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F - E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07F - E07FFF7FFF7FE07FE07F0000FF7FFF7FFF7FFF7FFF7F0000104210421863FF7F - FF7FFF7F1863104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000010421042104210421042 - 10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001042 - FF7F007C0000FF7F10420000FF7FFF7FFF7FFF7F000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018631863186318631863 - 18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001863 - FF7F007C007C0000FF7F0000FF7FFF7FFF7FFF7F00001042FF7F1F00FF7FFF7F - FF7FFF7FFF7F1F00FF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018630000186300000000 - 18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F - 007C007C007C0000FF7F0000FF7FFF7FFF7F000010421863FF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018631863186318631863 - 18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042 - 007C007C007C007C0000FF7FFF7FFF7FFF7F00001042FF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000010001000100010001000 - 10000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042007C - 007C0000007C007C0000FF7FFF7FFF7FFF7F00001042FF7F0000000000000000 - 007CFF7FFF7FFF7F1F00FF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F007C007C0000 - FF7FFF7F1042007C007C0000FF7FFF7FFF7F00001042FF7FFF7FFF7FFF7FFF7F - FF7F0000FF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F007C007C0000FF7FFF7FFF7F000010421863FF7FFF7FFF7FFF7F - FF7FFF7F0000FF7FFF7F186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 000000000000FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7F007C007C0000FF7FFF7FFF7F00001042FF7F1F00FF7FFF7F - FF7FFF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - 1002100210020000000000001002100210020000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7F1042007C0000FF7FFF7FFF7F000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - 1002100210021002100210021002100210020000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F1042007C0000FF7FFF7FFF7F0000104210421863FF7F - 1F00FF7F1863104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - 1002100210021002100210021002100210020000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F1042007C0000FF7FFF7FFF7F0000000010421042 - 10421042104200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 000000001002100210021002100200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 - 000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F000000000040FF7F00000000000000000000FF7F004000000000FF7F - FF7FFF7FFF7FFF7FFF7FFF7F000000001002FF7F00000000000000000000FF7F - 100200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F0040000000000000007C0000007C0000000000000040FF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7F1002000000000000FF030000FF0300000000 - 00001002FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F00000000007C1863FF7F0000FF7F1863007C00000000FF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF031863FF7F0000FF7F1863FF03 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 - 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F10420000007C18630000FF7FFF7FFF7F00001863007C00001042FF7F - FF7FFF7FFF7FFF7FFF7FFF7F10420000FF0318630000FF7FFF7FFF7F00001863 - FF0300001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - 0000E07F1863E07F1863E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F - FF7FFF7F0000007C007CFF7FFF7FFF7FFF7FFF7FFF7FFF7F007C007C0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7F0000FF03FF03FF7FFF7F0000FF7FFF7FFF7FFF7F - FF03FF030000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - FF7F0000E07F1863E07F1863E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7F - FF7FFF7F0000007C0000FF7F000000000000FF7FFF7F00000000007C0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7F0000FF030000FF7FFF7FFF7F0000FF7FFF7F0000 - 0000FF030000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - E07FFF7F0000E07F1863E07F1863E07F1863E07F1863E07F0000FF7FFF7FFF7F - FF7FE07F0000007C007CFF7FFF7FFF7F0000FF7FFF7FFF7F007C007C0000E07F - FF7FFF7FFF7FFF7FFF7FFF7F0000FF03FF03FF7FFF7FFF7F0000FF7FFF7FFF7F - FF03FF030000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - FF7FE07FFF7F0000000000000000000000000000000000000000FF7FFF7FFF7F - FF7F000010420000007C18630000FF7F0000FF7F00001863007C000010420000 - FF7FFF7FFF7FFF7FFF7FFF7F10420000FF0318630000FF7F0000FF7F00001863 - FF0300001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7F - FF7FE07FE07F00000000007C1863FF7F0000FF7F1863007C00000000E07FE07F - FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF031863FF7F0000FF7F1863FF03 - 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F - FF7F00000000000000000000007C007C007C007C007C00000000000000000000 - FF7FFF7FFF7FFF7FFF7F00000000000000000000FF03FF03FF03FF03FF030000 - 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000 - 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 - E07FFF7FE07FFF7FE07FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7F000018631863104200000000000000000000000000001863104210420000 - FF7FFF7FFF7FFF7FFF7F00001863186310420000000000000000000000000000 - 1863104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7F - E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 0000E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7F000018631863186318631042104200001042186318631863186310420000 - FF7FFF7FFF7FFF7FFF7F00001863186318631863104210420000104218631863 - 1863186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042000000000000 - 00001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - 104200000000000000001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FE07F000010421863186300000000E07F000000001863186310420000E07F - FF7FFF7FFF7FFF7FFF7FFF7F0000104218631863000010420000104200001863 - 186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7F0000FF7F104200000000E07FE07FE07FE07FE07F000000001042FF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7F104200000000FF7FFF7F0000FF7FFF7F0000 - 00001042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7F0000E07FE07F0000E07F0000E07F0000E07FE07F0000FF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7F0000E07FE07F0000FF7FE07F0000E07FFF7F0000E07FE07F0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F424D3E000000000000003E000000 + 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 @@ -909,324 +1725,644 @@ Bitmap = { 494C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000005000000001001000000000000028 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - FF7FFF7F00000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000001042FF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000001042 - 1042FF7FFF7F0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000104210420000 - 000000000000FF7FFF7F00000000000000000000000000000000000000001042 - 00000000FF7F0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010420000 - 000000000000FF7F000000000000000000000000000000000000000010421042 - 00000000FF7FFF7F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 00000000FF7FFF7F000000000000000000000000000000000000000010420000 - 000000000000FF7F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000001042 - 00000000FF7F0000000000000000000000000000000000000000104210420000 - 000000000000FF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000001042 - 1042FF7FFF7F0000000000000000000000000000000000000000104210421042 - 1042104210421042FF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 1042FF7F00000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - FF7F0000000000000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F00000000 - 00000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000E07F1863E07F1863 - E07F0000E07F1863E07F00000000000000000000000000000000FF7F00000000 - 0000000000000000FF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F000000000000000000000000FF7F0000E07F1863E07F - 00000000000000001863E07F0000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F000000000000000000000000E07FFF7F0000E07F1863 - E07F186300001863E07F1863E07F000000000000000000000000FF7F00000000 - 0000000000000000FF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F000000000000000000000000FF7FE07F000000000000 - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7F000000000000FF7FFF7FFF7FFF7F00000000000000000000FF7F00000000 - 000000000000FF7FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F000000000000000000000000000000000000FF7F00000000 - 0000FF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F000000000000000000000000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7F00000000000000000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7F00000000FF7FFF7F0000FF7F000000000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F - FF7F000000000000000000000000000000000000000000000000FF7F00000000 - FF7FFF7F0000FF7F000000000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000E07FFF7FE07FFF7F - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7F00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000010420000000000000000 - 1042000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F - FF7F000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - FF7F0000000000000000FF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F0000000000000000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F - 0000FF7FE07FFF7FE07F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F0000000000000000000000000000E07FF75EE07FF75E - E07FF75EE07FF75EE07F0000000000000000000000000000FF7FE07FFF7FE07F - 0000E07FFF7FE07FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F0000000000000000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F000000000000000000000000FF7F0000E07FF75EE07F - F75EE07FF75EE07FF75EE07F000000000000000000000000E07FFF7F00000000 - 000000000000FF7FE07F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F000000000000000000000000E07FFF7F0000E07FF75E - E07FF75EE07FF75EE07FF75EE07F00000000000000000000FF7FE07FFF7FE07F - 0000E07FFF7FE07FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7F000000000000FF7F00000000FF7F0000000000000000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F000000000000000000000000FF7FE07FFF7F00000000 - 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F - 0000FF7FE07FFF7FE07F00000000000000000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F00000000000000000000000000000000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FE07FFF7F - E07F0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F - FF7F000000000000000000000000000000000000000000000000FF7FE07FFF7F - E07F000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - 000000000000000000000000000000000000000000000000EF3D000000000000 - 0000EF3D0000000000000000000000000000000000000000E07FFF7FE07FFF7F - 0000000000000000000000000000000000000000000000001042000000000000 - 0000104200000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F - FF7F000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000EF3D0000000000000000 - EF3D000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000F75E000000000000000000000000000000000000000000000000 - 000000000000F75E000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000000F75E00000000000000000000000000000000E07FE07FE07F - E07FE07F00000000F75E00000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F000000420000F75E0000000000000000000000000000E07F00000000 - 0000E07F000000420000F75E0000000000000000000000000000FF7F00000000 - 00000000FF7FFF7FFF7F000000000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000E07F00000042004200000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000000000000042004200000000000000000000000000000000FF7F00000000 - 0000000000000000FF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000420042000000000000000000000000E07F000000000000E07F - 0000F75E00000042004200000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000F75E00000042004200000000000000000000000000000000FF7F00000000 - 0000000000000000FF7F000000000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000000000000042004200000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000EF3D00000042004200000000000000000000000000000000FF7F00000000 - 0000FF7F00000000FF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F - EF3DEF3D00000042004200000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000004200000000000000000000000000000000000000000000 - 0000000000000000004200000000000000000000000000000000FF7F00000000 - FF7F000000000000FF7F00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D000000000000000000000000000000000000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D0000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000E07FE07FE07F000000000000 - 00000000000000000000000000000000000000000000000000000000E07F0042 - E07F0042E07F004200000000000000000000000000000000000000000042E07F - 0042E07F0042E07F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FE07F0000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0042E07F0042E07F004200000000000000000000000000000000000000000000 - E07F0042E07F0042E07F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000EF3D - 000000000000000000000000000000000000000000000000000000000000EF3D + 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 @@ -1260,198 +2396,390 @@ Bitmap = { 494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000003000000001001000000000000018 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F001F001F00 - 1F001F001F001F001F000000000000000000000000000000007C007C10421042 - 1042104210421042104200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F001F001F00 - 1F001F001F001F001F000000000000000000000000000000007C007C007C1042 - 1042104210421042104200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F0000000000 - 0000000000000000000000000000000000000000000000000000007C007C1042 - 1042104210421863186300000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF0300000000 - 0000000000000000000000000000000000000000000000000000007C007C007C - 0000186318631863186300000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042000000000000 - 00000000000000000000000000000000000000000000000000000000007C007C - 007C007C18631863186300000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF0300000000 - 0000000000000000000000000000000000000000000000000000186318631863 - 007C007C18631863000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104218630000E07F - FF030000FF030000FF0300000000000000000000000000000000186300001863 - 007C007C007C0000186300000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421863E07F0000 - 1863FF030000FF03000000000000000000000000000000000000186318630000 - 1863007C007C007C000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042000018631863 - FF030000FF030000FF0300000000000000000000000000000000000018631863 - 18630000007C007C007C00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF030000FF03 - 0000FF030000FF03000000000000000000000000000000000000186300001863 - 0000186300001863007C00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042104210421042 - 1042104210421042104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010420000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000104200000000 - 0000000000000000000000000000000000000000000000000000000010421F00 - 1F001F001F001F001F001F001F00000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042000000000000 - 000000000000000000000000000000000000000000000000000010421F001F00 - 1F001F001F001F001F001F000000000000000000000000001042000010421F00 - 1F001F001F001F001F001F001F00000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F001F001F00 - 1F001F001F001F001F000000000000000000000000001042000010421F001F00 - 1F001F001F001F001F001F0000000000000000000000000010421F0010421F00 - 1F001F001F001F001F0000020002000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F001F001F00 - 1F001F001F001F001F0000000000000000000000000010421F0010421F001F00 - 1F001F001F001F000002000200000000000000001042000010421F001042FF03 - 0000FF0300000002000200020002000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421F001F001F00 - 1F001F001F000002000200000000000000000000000010421F001042FF030000 - FF0300000002000200020002000000000000000010421F0010421F0010420000 - FF030000FF030000FF0300020002000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF030000FF03 - 0000000200020002000200000000000000000000000010421F0010420000FF03 - 0000FF030000FF0300020002000000000000000010421F001042FF031042FF03 - 186318630000FF030000FF030000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010420000FF030000 - FF030000FF03000200020000000000000000000000001042FF031042FF031863 - 18630000FF030000FF030000000000000000000010421F001042000010421863 - 0000E07F18630000FF030000FF03000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF0318631863 - 0000FF030000FF03000000000000000000000000000010420000104218630000 - E07F18630000FF030000FF0300000000000000001042FF031042FF0310421863 - E07F00001863FF030000FF030000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104218630000E07F - 18630000FF030000FF030000000000000000000000001042FF0310421863E07F - 00001863FF030000FF0300000000000000000000104200001042186310420000 - 18631863FF030000FF030000FF03000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000010421863E07F0000 - 1863FF030000FF03000000000000000000000000000010421863104200001863 - 1863FF030000FF030000FF0300000000000000001042FF03104218631042FF03 - 0000FF030000FF030000FF030000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042000018631863 - FF030000FF030000FF03000000000000000000000000104218631042FF030000 - FF030000FF030000FF0300000000000000000000104218631042000010421042 - 1042104210421042104210421042104200000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042FF030000FF03 - 0000FF030000FF03000000000000000000000000000010420000104210421042 - 1042104210421042104210421042000000000000104218631042FF030000FF03 - 0000FF030000FF03000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042104210421042 - 104210421042104210421042000000000000000000001042FF030000FF030000 - FF030000FF030000000000000000000000000000104200001042104210421042 - 1042104210421042104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421042104210421042 - 10421042104210421042000000000000000000001042FF030000FF030000FF03 - 0000FF0300000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000104210421042104210421042 - 104210421042104200000000000000000000424D3E000000000000003E000000 + 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 @@ -1476,514 +2804,1026 @@ Bitmap = { 494C01010A000E00040020001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000800000004000000001001000000000000040 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07F1863E07F1863 - E07F1863E07F1863E07F00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07F1863E07F1863 - E07F1863E07F1863E07F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7F0000E07F1863 - E07F1863E07F1863E07F1863E07F000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7F0000E07F1863 - E07F1863E07F1863E07F1863E07F000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7FE07FFF7F00000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7FE07FFF7F00000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F - FF7F000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F - FF7F000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010420000000000000000 - 1042000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010420000000000000000 - 1042000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 1042104210420000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 1042104210420000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104210421863FF7F - FF7FFF7F18631042104200000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104210421863FF7F - FF7FFF7F18631042104200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001042FF7F1F00FF7FFF7F - FF7FFF7FFF7F1F00FF7F10420000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001042FF7F1F00FF7FFF7F - FF7FFF7FFF7F1F00FF7F10420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000010421863FF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F18631042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010421863FF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F18631042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F1042000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7FFF7FFF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F1042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7F0000000000000000 - 007CFF7FFF7FFF7F1F00FF7F1042000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7F0000000000000000 - 007CFF7FFF7FFF7F1F00FF7F1042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7FFF7FFF7FFF7FFF7F - FF7F0000FF7FFF7FFF7FFF7F1042000000000000000000000000000000000000 - 00000000000000000000000000000000000000001042FF7FFF7FFF7FFF7FFF7F - FF7F0000FF7FFF7FFF7FFF7F1042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000010421863FF7FFF7FFF7FFF7F - FF7FFF7F0000FF7FFF7F18631042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010421863FF7FFF7FFF7FFF7F - FF7FFF7F0000FF7FFF7F18631042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001042FF7F1F00FF7FFF7F - FF7FFF7FFF7FFF7FFF7F10420000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001042FF7F1F00FF7FFF7F - FF7FFF7FFF7FFF7FFF7F10420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F - 1F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104210421863FF7F - 1F00FF7F18631042104200000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000104210421863FF7F - 1F00FF7F18631042104200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 1042104210420000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 1042104210420000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000040000000000000 - 0000000000000000004000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000040000000000000 - 0000000000000000004000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001002000000000000 - 0000000000000000100200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001002000000000000 - 0000000000000000100200000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000040000000000000007C - 0000007C00000000000000400000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000040000000000000007C - 0000007C00000000000000400000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001002000000000000FF03 - 0000FF0300000000000010020000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000001002000000000000FF03 - 0000FF0300000000000010020000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000007C1863FF7F - 0000FF7F1863007C000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000007C1863FF7F - 0000FF7F1863007C000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF031863FF7F - 0000FF7F1863FF03000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF031863FF7F - 0000FF7F1863FF03000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000007C18630000FF7F - FF7FFF7F00001863007C00001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000007C18630000FF7F - FF7FFF7F00001863007C00001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000FF0318630000FF7F - FF7FFF7F00001863FF0300001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000FF0318630000FF7F - FF7FFF7F00001863FF0300001042000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F - FF7FFF7FFF7FFF7F007C007C0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F - FF7FFF7FFF7FFF7F007C007C0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF03FF03FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF03FF03FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000007C0000FF7F00000000 - 0000FF7FFF7F00000000007C0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000007C0000FF7F00000000 - 0000FF7FFF7F00000000007C0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF030000FF7FFF7FFF7F - 0000FF7FFF7F00000000FF030000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF030000FF7FFF7FFF7F - 0000FF7FFF7F00000000FF030000000000000000000000000000000000000000 - 000000000000000000000000000000000000E07F0000007C007CFF7FFF7FFF7F - 0000FF7FFF7FFF7F007C007C0000E07F00000000000000000000000000000000 - 000000000000000000000000000000000000E07F0000007C007CFF7FFF7FFF7F - 0000FF7FFF7FFF7F007C007C0000E07F00000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF03FF03FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF03FF03FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000007C18630000FF7F - 0000FF7F00001863007C00001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000007C18630000FF7F - 0000FF7F00001863007C00001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000FF0318630000FF7F - 0000FF7F00001863FF0300001042000000000000000000000000000000000000 - 000000000000000000000000000000000000000010420000FF0318630000FF7F - 0000FF7F00001863FF0300001042000000000000000000000000000000000000 - 000000000000000000000000000000000000E07FE07F00000000007C1863FF7F - 0000FF7F1863007C00000000E07FE07F00000000000000000000000000000000 - 000000000000000000000000000000000000E07FE07F00000000007C1863FF7F - 0000FF7F1863007C00000000E07FE07F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF031863FF7F - 0000FF7F1863FF03000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF031863FF7F - 0000FF7F1863FF03000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000007C007C - 007C007C007C0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000007C007C - 007C007C007C0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000FF03FF03 - FF03FF03FF030000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000FF03FF03 - FF03FF03FF030000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631042000000000000 - 0000000000000000186310421042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631042000000000000 - 0000000000000000186310421042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631042000000000000 - 0000000000000000186310421042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631042000000000000 - 0000000000000000186310421042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631863186310421042 - 0000104218631863186318631042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631863186310421042 - 0000104218631863186318631042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631863186310421042 - 0000104218631863186318631042000000000000000000000000000000000000 - 0000000000000000000000000000000000000000186318631863186310421042 - 0000104218631863186318631042000000000000000000000000000000000000 - 000000000000000000000000000000000000E07F000010421863186300000000 - E07F000000001863186310420000E07F00000000000000000000000000000000 - 000000000000000000000000000000000000E07F000010421863186300000000 - E07F000000001863186310420000E07F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421863186300001042 - 0000104200001863186310420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010421863186300001042 - 0000104200001863186310420000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000104200000000E07FE07F - E07FE07FE07F0000000010420000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000104200000000E07FE07F - E07FE07FE07F0000000010420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010420000000000000000 - 0000000000000000000010420000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000010420000000000000000 - 0000000000000000000010420000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FE07F0000E07F - 0000E07F0000E07FE07F00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FE07F0000E07F - 0000E07F0000E07FE07F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FE07F00000000E07F - 0000E07F00000000E07FE07F0000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07FE07F00000000E07F - 0000E07F00000000E07FE07F0000000000000000000000000000000000000000 + 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 @@ -2031,260 +3871,516 @@ Bitmap = { 494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000004000000001001000000000000020 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000008D048D048D048D048D048D040000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000008D048D048D048D048D048D040000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000008D048D04000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 007C10000000000000008D048D04000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000001002 - 104010420000000000008D048D04000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000FF03 - 007C18630000000000008D048D04000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000001863 - 0040104200008D048D048D048D048D048D040000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010420000 - 1863000000008D048D048D048D048D048D040000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 1000100200000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 1863000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042100210021863 - 1863186310001002186300000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000100210021002100210021002 - 1863100210021002100210021002000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000001042100210021002100210021000 - 1863100210021002100210021002104200000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000100210020000 - 1002000010021002000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000186300000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000007C007C007C007C007C007C - 007C0000007C007C007C007C007C007C00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000007C00000000000000000000 - 0000000000000000000000000000007C00000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000FF038D04 - 8D048D048D048D048D0400000000000000000000000000000000000000000000 - 0000104200000000000000000000000000000000007C00000000000000000000 - 0000007C10000000000000000000007C00000000000000000000000000000000 - 0000007C10000000000000000000000000000000000000000000000000008D04 - 8D048D048D048D048D0400000000000000000000000000000000000000000000 - 1042000010420000000000000000000000000000007C00000000000000000000 - 1002104010420000000000000000007C00000000000000000000000000000000 - 10021040104200000000000000000000000000000000000000000000FF03FF03 - FF038D048D04FF03FF0300000000000000000000000000000000000000000000 - 1863104218630000000000000000000000000000007C00000000000000000000 - FF03007C18630000000000000000007C00000000000000000000000000000000 - FF03007C1863000000000000000000000000000000000000000000000000EF3D - EF3D8D048D040000000000000000000000000000000000000000000000000000 - 1863000010420000000000000000000000000000007C00000000000000000000 - 1863004010420000000000000000007C00000000000000000000000000000000 - 18630040104200000000000000000000000000000000000000000000FF03FF03 - FF038D048D04FF03FF0300000000000000000000000000000000000000001042 - 0000186300000000000000000000000000000000007C00000000000000001042 - 0000186300000000000000000000007C00000000000000000000000000001042 - 000018630000000000000000000000000000000000000000000000000000EF3D - 00008D048D04EF3D000000000000000000000000000000000000000000000000 - 0000000010420000000000000000000000000000007C00000000000000000000 - 0000100010020000000000000000007C00000000000000000000000000000000 - 00001000100200000000000000000000000000000000000000000000FF038D04 - 8D048D048D048D048D0400000000000000000000000000000000000000000000 - 0000186300000000000000000000000000000000007C00000000000000000000 - 0000186300000000000000000000007C00000000000000000000000000000000 - 0000186300000000000000000000000000000000000000000000000000008D04 - 8D048D048D048D048D0400000000000000000000000000000000104210421042 - 1863186318630000104218630000000000000000007C00000000104210021002 - 1863186318631000100218630000007C00000000000000000000104210021002 - 18631863186310001002186300000000000000000000000000000000FF03FF03 - FF03FF03FF03FF03FF0300000000000000000000000010421042104210421042 - 1042186310421042104210421042104200000000007C10021002100210021002 - 1002186310021002100210021002100200000000000010021002100210021002 - 1002186310021002100210021002100200000000000000000000000000000000 - 0000000000000000000000000000000000000000104210421042104210421042 - 0000186310421042104210421042104218630000104210021002100210021002 - 1000186310021002100210021002100210420000104210021002100210021002 - 1000186310021002100210021002100210420000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000010421042 - 0000104200001042104200000000000000000000007C00000000000010021002 - 0000100200001002100200000000007C00000000000000000000000010021002 - 00001002000010021002000000000000000000000000000000000000EF3D0000 - EF3D0000EF3D0000EF3D00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000007C007C007C007C007C007C - 007C007C007C007C007C007C007C007C00000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000EF3D0000 - EF3D0000EF3D0000EF3D00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000F75E000000000000000000000000000000000000000000000000 - 000000000000F75E000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000000F75E00000000000000000000000000000000E07FE07FE07F - E07FE07F00000000F75E000000000000000000000000FF7F0000FF7FFF03FF03 - FF03FF03FF03FF03FF03FF7F00000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F000000420000F75E0000000000000000000000000000E07F00000000 - 0000E07F000000420000F75E00000000000000000000FF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000E07F000000420042000000000000000000000000FF7F0000FF7FFF03FF03 - FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 00000000000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D - EF3DEF3DFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000420042000000000000000000000000E07F000000000000E07F - 0000F75E000000420042000000000000000000000000FF7F0000FF7FFF03FF03 - FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000F75E000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D - FF7FEF3DEF3DEF3DFF7FFF7F00000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 00000000000000420042000000000000000000000000FF7F0000FF7FFF03FF03 - FF03FF03FF03FF03FF03FF7F00000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000EF3D000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D - EF3DFF7FEF3DFF7FFF7FFF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F - EF3DEF3D000000420042000000000000000000000000FF7F0000FF7FFF03FF03 - FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000004200000000000000000000000000000000000000000000 - 00000000000000000042000000000000000000000000FF7F0000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D000000000000000000000000000000000000EF3DEF3DEF3DEF3D - EF3DEF3DEF3D00000000000000000000000000000000FF7F00000000FF7F0000 - FF7F0000FF7F0000FF7F00000000000000000000E07FE07FE07F000000000000 - 00000000000000000000000000000000000000000000000000000000E07F0042 - E07F0042E07F004200000000000000000000000000000000000000000042E07F - 0042E07F0042E07F0000000000000000000000000000000000000000EF3D0000 - EF3D0000EF3D0000EF3D00000000000000000000E07FE07F0000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0042E07F0042E07F004200000000000000000000000000000000000000000000 - E07F0042E07F0042E07F000000000000000000000000000000000000EF3D0000 - EF3D0000EF3D0000EF3D00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000EF3D - 000000000000000000000000000000000000000000000000000000000000EF3D + 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 @@ -2314,261 +4410,517 @@ Bitmap = { 494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000004000000001001000000000000020 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E07F1863E07F1863E07F - 1863E07F1863E07F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FFF7F0000000000000000 - 0000000000000000000000000000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FE07F0000FF7F0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FFF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000FF7FE07F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F00000000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000FF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7F0000FF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000104200000000FF7F0000FF7F - 0000FF7FFF7F0000FF7FFF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7F0000FF7FFF7FFF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 00000000FF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F00000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F00000000000000000000000000000000000000000000 - FF7F0000000000000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07FFF7FE07F000000000000FF7FE07FFF7F0000FF7FE07F - FF7FE07F0000E07FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F - FF7FE07FFF7F00000000E07FFF7F000000000000E07FFF7FE07F0000E07FFF7F - E07F00000000FF7FE07F0000FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000E07FFF7F0000FF7F - E07FFF7F0000FF7F0000FF7FE07F000000000000FF7FE07FFF7F0000FF7FE07F - 0000E07F0000E07FFF7F00000000FF7F00000000FF7FFF7FFF7FFF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F - FF7F0000FF7FE07F0000E07FFF7F000000000000E07FFF7FE07F0000E07F0000 - E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000 - FF7F000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F0000000000000000000000000000E07FFF7F0000FF7F - 0000FF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7F00000000E07F - FF7FE07F0000E07FFF7F00000000FF7F00000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F00000000 - FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7FE07F0000E07FFF7F - E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FFF7F0000FF7FFF7F0000 - FF7F000000000000FF7F00000000FF7F00000000000000000000FF7F00000000 - 000000000000FF7FFF7F0000000000000000000000000000E07FFF7F0000FF7F - E07FFF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F00000000FF7F00000000000000000000000000000000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7FE07FFF7F000000000000000000000000000000000000 - 000000000000000000000000FF7FFF7F00000000FF7FFF7F0000FF7FFF7F0000 - FF7F00000000FF7F000000000000FF7F00000000000000000000FF7FFF7FFF7F - 0000FF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7F00000000FF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000 - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FE07FFF7F - E07F000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F0000FF7F000000000000FF7FFF7FFF7FFF7FFF7F0000 - 0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F - FF7F000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F00000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07F000000000000000000000000E07F1863E07F1863E07F - 1863E07F1863E07F000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F - E07FFF7FE07FFF7FE07FFF7FE07F000000000000FF7FE07FFF7FE07F00000000 - 00000000FF7FE07FFF7F00000000000000000000E07F0000E07F1863E07F1863 - E07F1863E07F1863E07F0000FF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F - 000000000000E07FFF7FE07FFF7F000000000000E07FFF7FE07F0000E07FFF7F - E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FE07F0000E07F1863E07F - 1863E07F1863E07F1863E07F0000FF7F00000000000000000000FF7F00000000 - 00000000FF7FFF7FFF7F0000000000000000000000000000E07FFF7FE07F0000 - E07FFF7FE07F0000E07FFF7FE07F000000000000FF7FE07F0000E07FFF7FE07F - FF7FE07FFF7F0000FF7F00000000FF7F00000000E07FFF7F0000000000000000 - 0000000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F - FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7F0000FF7FE07FFF7F - E07FFF7FE07F0000E07F0000FF7FFF7F00000000FF7FE07F0000FF7F0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7F00000000 - 0000000000000000FF7F0000000000000000000000000000E07FFF7F0000FF7F - E07FFF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7F0000FF7FE07F - FF7FE07F0000E07FFF7F00000000FF7F00000000E07FFF7F0000FF7F0000FF7F - FF7FFF7F000000000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F - FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7FE07FFF7F00000000 - 00000000E07FFF7FE07F0000FF7FFF7F00000000FF7FE07F0000FF7F0000FF7F - FF7F0000FF7FFF7FFF7F0000FF7FFF7F00000000000000000000FF7F00000000 - 0000000000000000FF7F0000000000000000000000000000E07FFF7FE07F0000 - E07FFF7FE07F0000E07FFF7FE07F000000000000FF7FE07FFF7FE07FFF7FE07F - FF7FE07FFF7FE07FFF7F00000000FF7F000000000000FF7F0000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F - 000000000000E07FFF7FE07FFF7F000000000000000000000000000000000000 - 000000000000000000000000FF7FFF7F00000000104200000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7F00000000 - 0000FF7F00000000FF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7F00000000FF7F00000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FE07FFF7F - E07F000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F0000FF7F000000000000000000000000FF7F0000FF7F - FF7F0000FF7FFF7FFF7F0000FF7FFF7F00000000000000000000FF7F00000000 - FF7F000000000000FF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000FF7FFF7FFF7FFF7F00000000000000000000000000000000FF7F0000FF7F - FF7FFF7F000000000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F - FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - 0000000000000000000000000000000000000000000000000000FF7F0000FF7F - FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000FF7F00000000 - 0000000000000000000000000000000000000000000000000000FF7F00000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000001863000000000000000000000000000000000000000000000000 - 0000000000001863000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000000186300000000000000000000000000000000E07FE07FE07F - E07FE07F00000000186300000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F00000042000018630000000000000000000000000000E07F00000000 - 0000E07F00000042000018630000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000E07F00000042004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000000000000042004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000420042000000000000000000000000E07F000000000000E07F - 0000186300000042004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000186300000042004200000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000E07FE07F - E07F000000000000000000000000000000000000000000000000E07F00000000 - 0000E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F - 0000000000000042004200000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000000000E07FE07F - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000000000000000 - 0000104200000042004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E07FE07FE07F - E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F - 1042104200000042004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000004200000000000000000000000000000000000000000000 - 0000000000000000004200000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000001042104210421042 - 1042104210420000000000000000000000000000000000001042104210421042 - 1042104210420000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FE07FE07F000000000000 - 00000000000000000000000000000000000000000000000000000000E07F0042 - E07F0042E07F004200000000000000000000000000000000000000000042E07F - 0042E07F0042E07F000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000E07FE07F0000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0042E07F0042E07F004200000000000000000000000000000000000000000000 - E07F0042E07F0042E07F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000001042 - 0000000000000000000000000000000000000000000000000000000000001042 + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/dShared.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/dShared.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/dShared.pas (revision 460) @@ -524,5 +524,6 @@ if(not assigned(FTIUObjects)) or (FRefreshObject = true) then begin - FTIUObjects := TStringList.Create; + if(not assigned(FTIUObjects)) then + FTIUObjects := TStringList.Create; FTIUObjects.Clear; GetObjectList; Index: cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.dfm (revision 460) @@ -260,4 +260,6 @@ Height = 17 Caption = 'Marked On Chart' + Checked = True + State = cbChecked TabOrder = 18 Visible = False @@ -285,5 +287,5 @@ ItemTipColor = clWindow ItemTipEnable = True - ListItemsOnly = False + ListItemsOnly = True LongList = True LookupPiece = 0 @@ -368,4 +370,5 @@ TabOrder = 9 OnChange = ControlChange + OnExit = ControlChange CharsNeedMatch = 1 end @@ -534,5 +537,5 @@ Left = 0 Top = 330 - Width = 83 + Width = 521 Height = 13 Align = alBottom @@ -567,4 +570,5 @@ Font.Style = [] ParentFont = False + ScrollBars = ssVertical TabOrder = 1 OnExit = memCommentsExit Index: cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.pas (revision 460) @@ -60,5 +60,5 @@ btnSevHelp: TORAlignButton; procedure btnAgentClick(Sender: TObject); - procedure FormCreate(Sender: TObject); + procedure FormCreate(Sender: TObject); procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); @@ -160,4 +160,5 @@ 'HISTORICAL: reported by the patient as occurring in the past;' + CRLF + 'no longer requires intervention' ; + NEW_ALLERGY = True; ENTERED_IN_ERROR = True; @@ -190,4 +191,5 @@ Result := False; frmARTAllergy := TfrmARTAllergy.Create(Application); + if frmARTAllergy.AbortAction then exit; with frmARTAllergy do try @@ -286,4 +288,5 @@ ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten'); cboSymptoms.InsertSeparator; + cboSymptoms.InitLongList(''); cboOriginator.InitLongList(User.Name) ; cboOriginator.SelectByIEN(User.DUZ); @@ -301,6 +304,15 @@ var Allergy: string; -begin - inherited; + //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; @@ -441,5 +453,5 @@ begin if (lstSelectedSymptoms.Items.Count = 0) then SetError(TX_NO_SYMPTOMS); - if (grpObsHist.Enabled) and RequireOriginatorComments and (memComments.Text = '') then + if (grpObsHist.Enabled) and RequireOriginatorComments and (not ContainsVisibleChar(memComments.Text)) then SetError(TX_ORIG_CMTS_REQD); if (grpObsHist.Enabled) and (calObservedDate.Text = '') then @@ -627,6 +639,8 @@ if tmpDate > 0 then ReactionDate := tmpDate;*) with cboSeverity do - if ItemID <> '' then - Severity := ItemID; + if (ItemID <> '') and (Text <> '') then + Severity := ItemID + else + Severity := ''; with memComments do if GetTextLen > 0 then @@ -886,12 +900,20 @@ 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; - if (cboSymptoms.ItemIndex < 0) and (cboSymptoms.Text = '') then exit; - Changing := True; + 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 @@ -906,11 +928,11 @@ SelectByID(cboSymptoms.ItemID); end; - end - else + end ; +(* else Free-text entries no longer allowed. with lstSelectedSymptoms do begin Items.Add('FT' + U + cboSymptoms.Text); ItemIndex := Items.Count - 1; - end; + end;*) Changing := False; ControlChange(Self) Index: cprs/branches/foia-cprs/CPRS-Chart/fARTFreeTextMsg.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fARTFreeTextMsg.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fARTFreeTextMsg.dfm (revision 460) @@ -7,5 +7,4 @@ Constraints.MinHeight = 180 Constraints.MinWidth = 394 - FormStyle = fsStayOnTop Position = poMainFormCenter PixelsPerInch = 96 Index: cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fActivateDeactivate.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.dfm (revision 460) @@ -103,4 +103,5 @@ OnMouseClick = cboSrcListMouseClick OnNeedData = NewPersonNeedData + CharsNeedMatch = 1 end object DstList: TORListBox @@ -187,4 +188,5 @@ OnExit = cboCosignerExit OnNeedData = cboCosignerNeedData + CharsNeedMatch = 1 end object txtAuthor: TCaptionEdit Index: cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas (revision 460) @@ -46,4 +46,5 @@ FChanged: Boolean; FNoteIEN: integer; + FRefDate: TFMDateTime; FToday: string; FTabID: integer; @@ -58,5 +59,5 @@ procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings; - var SignerList: TSignerList; TabID: integer) ; + var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ; const @@ -83,6 +84,6 @@ -procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; {Status: string;} Exclusions: TStrings; - var SignerList: TSignerList; TabID: integer) ; +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 @@ -97,4 +98,5 @@ FSigAction := SigAction; FNoteIEN := NoteIEN; + FRefDate := ARefDate; FExclusions.Assign(Exclusions); FToday := FloatToStr(FMToday); @@ -209,5 +211,5 @@ begin j := FExclusions.IndexOf(Items[i]); - FSigners.Add(Items[i]+'^REMOVE'); + FSigners.Add(ORFn.Pieces(Items[i], U, 1, 2) + '^REMOVE'); if j > -1 then FExclusions.Delete(j); Items.Delete(i) ; @@ -227,5 +229,5 @@ begin DstList.Items.Delete(i); - FSigners.Add(cboCosigner.Items[cboCosigner.ItemIndex] + '^REMOVE'); + FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE'); end; end; @@ -271,5 +273,5 @@ case FTabID of CT_NOTES, CT_CONSULTS: - if (not CanCosign(TitleForNote(FNoteIEN), 0, cboCosigner.ItemIEN)) then + 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); Index: cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas (revision 460) @@ -32,5 +32,5 @@ {$R *.dfm} -uses rCover, fCover; +uses rCover, fCover, rODAllergy; const @@ -47,4 +47,5 @@ BtnLeft: array of integer; j, k: integer; + x: string; begin Result := TfrmAllgyBox.Create(Application); @@ -68,5 +69,4 @@ if AWidth > MaxWidth then MaxWidth := AWidth; end; - cmdPrint.Visible := AllowPrint; MaxWidth := MaxWidth + GetSystemMetrics(SM_CXVSCROLL); AHeight := (ReportText.Count * (lblFontTest.Height + 2)) + pnlbutton.Height; @@ -87,4 +87,8 @@ 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 Index: cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.dfm (revision 460) @@ -4,8 +4,7 @@ BorderIcons = [] BorderStyle = bsDialog - Caption = 'Allergy Reactant Lookup' - ClientHeight = 410 - ClientWidth = 443 - FormStyle = fsStayOnTop + Caption = 'Causative Agent Lookup' + ClientHeight = 472 + ClientWidth = 445 Position = poScreenCenter OnCreate = FormCreate @@ -13,28 +12,51 @@ 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 = 9 - Width = 282 + Top = 73 + Width = 52 Height = 13 - Caption = 'Enter causative agent for Allergy or Adverse Drug Reaction:' - end - object lblSelect: TLabel - Left = 6 - Top = 67 - Width = 175 - Height = 13 - Caption = 'Select from one of the following items' - Visible = False - end - object Label1: TLabel - Left = 6 - Top = 23 - Width = 130 - Height = 13 - Caption = '(Enter at least 3 characters)' + Caption = 'Search for:' end object txtSearch: TCaptionEdit - Left = 5 - Top = 38 + Left = 4 + Top = 88 Width = 331 Height = 21 @@ -46,6 +68,6 @@ end object cmdSearch: TButton - Left = 363 - Top = 38 + Left = 362 + Top = 88 Width = 75 Height = 21 @@ -56,6 +78,6 @@ end object cmdOK: TButton - Left = 264 - Top = 365 + Left = 263 + Top = 422 Width = 75 Height = 22 @@ -65,6 +87,6 @@ end object cmdCancel: TButton - Left = 346 - Top = 365 + Left = 345 + Top = 422 Width = 75 Height = 22 @@ -76,6 +98,6 @@ object stsFound: TStatusBar Left = 0 - Top = 391 - Width = 443 + Top = 453 + Width = 445 Height = 19 Panels = <> @@ -83,6 +105,6 @@ end object ckNoKnownAllergies: TCheckBox - Left = 80 - Top = 368 + Left = 320 + Top = 118 Width = 119 Height = 17 @@ -92,6 +114,6 @@ end object tvAgent: TORTreeView - Left = 3 - Top = 81 + Left = 2 + Top = 138 Width = 437 Height = 270 @@ -106,6 +128,6 @@ end object imTree: TImageList - Left = 397 - Top = 93 + Left = 396 + Top = 150 Bitmap = { 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 Index: cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.pas (revision 460) @@ -19,5 +19,6 @@ tvAgent: TORTreeView; imTree: TImageList; - Label1: TLabel; + lblDetail: TLabel; + lblSearchCaption: TLabel; procedure cmdSearchClick(Sender: TObject); procedure cmdCancelClick(Sender: TObject); @@ -49,6 +50,6 @@ 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'; - TX_FREE_TEXT = 'Would you like to request that this term be added to' + #13#10 + + 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 + @@ -58,6 +59,25 @@ '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.'; - TX_BULLETIN = 'Bulletin has been sent.'; + '"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 + @@ -186,5 +206,5 @@ x: string; tmpList: TStringList; - OKtoContinue: boolean; + OKtoContinue: boolean ; begin inherited; @@ -206,5 +226,5 @@ begin FAllergy := ''; - case InfoBox(TX_FREE_TEXT, TC_FREE_TEXT, MB_YESNOCANCEL or MB_DEFBUTTON2 or MB_ICONQUESTION)of + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fClinicWardMeds.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/fCover.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fCover.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fCover.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmCover: TfrmCover - Left = 334 - Top = 187 + Left = 256 + Top = 280 HelpContext = 1000 BorderIcons = [] Index: cprs/branches/foia-cprs/CPRS-Chart/fCover.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fCover.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fCover.pas (revision 460) @@ -101,8 +101,14 @@ 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 @@ -114,6 +120,6 @@ {$R *.DFM} -uses ORNet, ORFn, fRptBox, fVitals, fvit, fFrame, uCore, TRPCB, uConst, - uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy; +uses ORNet, ORFn, fRptBox, fVitals, fvit, fFrame, uCore, TRPCB, uConst, uInit, + uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc; const @@ -436,17 +442,9 @@ if ItemID <> '' then begin - SelectVitals(Font.Size); - StatusText('Searching for recent vitals...'); - with frmCover do - for i := ComponentCount - 1 downto 0 do - begin - if Components[i] is TORListBox then - begin - case Components[i].Tag of - 70: ListVitals((Components[i] as TORListBox).Items); - end; - end; - end; - StatusText(''); + frmFrame.VitalsDLLActive := True; + SelectVitals(Piece(DisplayText[ItemIndex],Char(9),1)); //Char(9) = Tab Character + frmFrame.VitalsDLLActive := False; + ClearPtData; + DisplayPage; end; @@ -457,5 +455,8 @@ //don't try to display a detail report end; - ItemIndex := -1; + if uInit.TimedOut then // Fix for CQ: 8011 + Abort + else + ItemIndex := -1; end; end; @@ -612,14 +613,29 @@ begin lb.Clear; - i := -1; - repeat - i := ActiveReminders.IndexOfPiece('1',U,6,i); - if(i >= 0) then + //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 - tmp := ActiveReminders[i]; - SetPiece(tmp, U, 3, FormatFMDateTimeStr('mmm dd,yy', Piece(tmp, U, 3))); - lb.Items.Add(tmp); + 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; - until(i < 0); + //AGP End Change for 26.8 if(RemindersEvaluatingInBackground) then lb.Items.Insert(0,'0^Evaluating Reminders...') @@ -745,11 +761,14 @@ var AListBox: TORListBox; + x: string; begin inherited; AListBox := (popMenuAllergies.PopupComponent as TORListBox); - popEditAllergy.Enabled := AListBox.ItemIEN > 0; - popEnteredInError.Enabled := AListBox.ItemIEN > 0; + 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; @@ -867,4 +886,115 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm (revision 460) @@ -1,5 +1,5 @@ inherited frmDCSumm: TfrmDCSumm - Left = 180 - Top = 193 + Left = 488 + Top = 83 Width = 687 Height = 409 @@ -481,4 +481,54 @@ 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 = '-' Index: cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.pas (revision 460) @@ -134,4 +134,14 @@ 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); @@ -211,4 +221,6 @@ 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 @@ -230,5 +242,5 @@ procedure ClearEditControls; function StartNewEdit(NewNoteType: integer): Boolean; - procedure DoAutoSave; + procedure DoAutoSave(Suppress: integer = 1); function LacksRequiredForCreate: Boolean; function GetTitleText(AnIndex: Integer): string; @@ -1726,11 +1738,14 @@ 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} - SignSts: TActionRec; + ActionSts, SignSts: TActionRec; APCEObject: TPCEData; OK: boolean; - + ActionType, SignTitle: string; begin AnIndex := -1; @@ -1757,5 +1772,20 @@ if Length(ESCode) > 0 then begin - if not NoteHasText(IEN) then + 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); @@ -1910,9 +1940,11 @@ begin inherited; - DoAutoSave; + DoAutoSave(0); timAutoSave.Enabled := False; try SpellCheckForControl(memNewSumm); finally + FChanged := True; + DoAutoSave(0); timAutoSave.Enabled := True; end; @@ -1922,9 +1954,11 @@ begin inherited; - DoAutoSave; + DoAutoSave(0); timAutoSave.Enabled := False; try GrammarCheckForControl(memNewSumm); finally + FChanged := True; + DoAutoSave(0); timAutoSave.Enabled := True; end; @@ -2013,4 +2047,5 @@ SigAction: integer; SavedDocID: string; + ARefDate: TFMDateTime; begin inherited; @@ -2052,5 +2087,8 @@ Exclusions := GetCurrentSigners(lstSumms.ItemIEN); - SelectAdditionalSigners(Font.Size, lstSumms.ItemIEN, SigAction, Exclusions, SignerList, CT_DCSUMM); + 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 @@ -2308,4 +2346,5 @@ var CurTitle: Integer; + ADateTime: TFMDateTime; begin Result := False; @@ -2321,5 +2360,9 @@ begin if Title > 0 then CurTitle := Title else CurTitle := DocType; - if AskCosignerForTitle(CurTitle, Dictator) and (Cosigner <= 0) then Result := True; + if DischargeDateTime > 0 then + ADateTime := DischargeDateTime + else + ADateTime := DictDateTime; + if AskCosignerForTitle(CurTitle, Dictator, ADateTime) and (Cosigner <= 0) then Result := True; end; end; @@ -2357,5 +2400,5 @@ end; -procedure TfrmDCSumm.DoAutoSave; +procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1); var ErrMsg: string; @@ -2367,5 +2410,5 @@ timAutoSave.Enabled := False; try - SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex),1); + SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex), Suppress); finally timAutoSave.Enabled := True; @@ -3216,4 +3259,24 @@ 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; Index: cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.dfm (revision 460) @@ -15,4 +15,5 @@ OldCreateOrder = False Position = poScreenCenter + OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 @@ -94,4 +95,5 @@ OnMouseClick = cboNewTitleMouseClick OnNeedData = cboNewTitleNeedData + CharsNeedMatch = 1 end object calSumm: TORDateBox @@ -132,4 +134,5 @@ OnMouseClick = cboAuthorMouseClick OnNeedData = cboAuthorNeedData + CharsNeedMatch = 1 end object cboAttending: TORComboBox @@ -158,4 +161,5 @@ OnExit = cboAttendingExit OnNeedData = cboAttendingNeedData + CharsNeedMatch = 1 end object cmdOK: TButton @@ -229,4 +233,5 @@ TabOrder = 0 OnNeedData = cboAuthorNeedData + CharsNeedMatch = 1 end object cboUrgency: TORComboBox @@ -251,4 +256,5 @@ SynonymChars = '<>' TabOrder = 1 + CharsNeedMatch = 1 end end Index: cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.pas (revision 460) @@ -54,4 +54,5 @@ procedure lstAdmissionsChange(Sender: TObject); procedure cboNewTitleDblClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private FCosignIEN: Int64; // store cosigner that was passed in @@ -87,5 +88,5 @@ {$R *.DFM} -uses ORFn, uCore, rCore, uPCE, rPCE; +uses ORFn, uCore, rCore, uPCE, rPCE, rMisc; { Initial values in ASumm @@ -231,4 +232,5 @@ procedure TfrmDCSummProperties.FormShow(Sender: TObject); begin + SetFormPosition(Self); //if cboNewTitle.Text = '' then PostMessage(Handle, UM_DELAYEVENT, 0, 0); end; @@ -512,3 +514,9 @@ end; +procedure TfrmDCSummProperties.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + SaveUserBounds(Self); +end; + end. Index: cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.dfm (revision 460) @@ -1,8 +1,9 @@ object frmDeviceSelect: TfrmDeviceSelect - Left = 389 - Top = 375 - Width = 445 - Height = 276 + Left = 378 + Top = 340 + AutoScroll = False Caption = 'Orders Print Device Selection' + ClientHeight = 235 + ClientWidth = 415 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -13,4 +14,6 @@ OldCreateOrder = True Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -22,50 +25,18 @@ end object grpDevice: TGroupBox - Left = 10 - Top = 8 - Width = 411 - Height = 192 + Left = 0 + Top = 0 + Width = 415 + Height = 194 + Align = alClient Caption = 'Device' TabOrder = 0 - 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 = 7 + Left = 2 Top = 15 - Width = 395 - Height = 140 + Width = 411 + Height = 145 Style = orcsSimple + Align = alClient AutoSelect = True Caption = 'Device' @@ -77,4 +48,5 @@ ListItemsOnly = False LongList = True + LookupPiece = 0 MaxLength = 0 ParentShowHint = False @@ -88,32 +60,84 @@ 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 cmdOK: TButton - Left = 269 - Top = 211 - Width = 72 - Height = 22 - Caption = 'OK' - Default = True - TabOrder = 2 - OnClick = cmdOKClick - end - object cmdCancel: TButton - Left = 349 - Top = 211 - Width = 72 - Height = 22 - Cancel = True - Caption = 'Cancel' - TabOrder = 3 - OnClick = cmdCancelClick - end - object chkDefault: TCheckBox - Left = 12 - Top = 218 - Width = 163 - Height = 17 - Caption = 'Save as user'#39's default printer' + 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 Index: cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas (revision 460) @@ -5,17 +5,19 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - StdCtrls, fAutoSz, ORCtrls, ORNet, Mask; + StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls; type TfrmDeviceSelect = class(TfrmAutoSz) grpDevice: TGroupBox; - lblMargin: TLabel; - lblLength: TLabel; - txtRightMargin: TMaskEdit; - txtPageLength: TMaskEdit; 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); @@ -23,4 +25,6 @@ procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); private FWinPrint: Boolean; @@ -37,5 +41,5 @@ {$R *.DFM} -uses ORFn, rCore, uCore, rReports, Printers, fFrame; +uses ORFn, rCore, uCore, rReports, Printers, fFrame, rMisc; const @@ -143,3 +147,16 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/fEncnt.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fEncnt.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fEncnt.dfm (revision 460) @@ -1,11 +1,12 @@ object frmEncounter: TfrmEncounter - Left = 302 - Top = 180 + Left = 481 + Top = 242 + Width = 470 + Height = 450 + Anchors = [akTop] BorderIcons = [biSystemMenu] - BorderStyle = bsDialog Caption = 'Provider & Location for Current Activities' - ClientHeight = 367 - ClientWidth = 384 Color = clBtnFace + Constraints.MinWidth = 470 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -15,10 +16,13 @@ OldCreateOrder = True Position = poScreenCenter + Scaled = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy + OnResize = FormResize + OnShow = FormShow DesignSize = ( - 384 - 367) + 462 + 423) PixelsPerInch = 96 TextHeight = 13 @@ -38,9 +42,10 @@ Tag = 9 Left = 6 - Top = 149 + Top = 140 Width = 93 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Encounter Location' + Constraints.MinHeight = 12 end object lblProvider: TLabel @@ -51,198 +56,10 @@ Caption = 'Encounter Provider' end - object cmdOK: TButton - Left = 306 + object cboPtProvider: TORComboBox + Left = 6 Top = 20 - Width = 72 - Height = 21 - Caption = 'OK' - Default = True - TabOrder = 4 - OnClick = cmdOKClick - end - object cmdCancel: TButton - Left = 306 - Top = 49 - Width = 72 - Height = 21 - Cancel = True - Caption = 'Cancel' - TabOrder = 5 - OnClick = cmdCancelClick - end - object txtLocation: TCaptionEdit - Tag = 9 - Left = 6 - Top = 163 - Width = 212 - Height = 21 - Anchors = [akLeft, akBottom] - 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 = 194 - Width = 372 - Height = 167 - ActivePage = tabClinic - Anchors = [akLeft, akBottom] - TabIndex = 0 - TabOrder = 2 - OnChange = pgeVisitChange - object tabClinic: TTabSheet - Caption = 'Clinic Appointments' - 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 = 4 - Top = 18 - Width = 352 - Height = 117 - 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 = 288 - Top = 177 - Width = 90 - Height = 21 - Anchors = [akLeft, akBottom] - Caption = 'Date Range...' - TabOrder = 3 - OnClick = cmdDateRangeClick - end - object cboPtProvider: TORComboBox - Left = 6 - Top = 20 - Width = 292 + Width = 331 Height = 117 + Anchors = [akLeft, akTop, akRight, akBottom] Style = orcsSimple AutoSelect = True @@ -265,4 +82,236 @@ 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 + TabIndex = 2 + 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 + 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 + end object dlgDateRange: TORDateRangeDlg DateOnly = True Index: cprs/branches/foia-cprs/CPRS-Chart/fEncnt.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fEncnt.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fEncnt.pas (revision 460) @@ -23,11 +23,12 @@ lblLocation: TLabel; txtLocation: TCaptionEdit; + dlgDateRange: TORDateRangeDlg; + cmdDateRange: TButton; + lblInstruct: TLabel; + Panel1: TPanel; pgeVisit: TPageControl; tabClinic: TTabSheet; - lblClinic: TLabel; - lblDateRange: TLabel; lstClinic: TORListBox; tabAdmit: TTabSheet; - lblAdmit: TLabel; lstAdmit: TORListBox; tabNewVisit: TTabSheet; @@ -37,7 +38,9 @@ ckbHistorical: TORCheckBox; cboNewVisit: TORComboBox; - dlgDateRange: TORDateRangeDlg; - cmdDateRange: TButton; - lblInstruct: TLabel; + Panel2: TPanel; + lblDateRange: TLabel; + lblClinic: TLabel; + Panel3: TPanel; + lblAdmit: TLabel; procedure FormCreate(Sender: TObject); procedure pgeVisitChange(Sender: TObject); @@ -57,4 +60,6 @@ procedure lstAdmitChange(Sender: TObject); procedure lstClinicChange(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure FormShow(Sender: TObject); private CLINIC_TXT : String; @@ -241,8 +246,14 @@ 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 = 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 @@ -255,4 +266,5 @@ cboNewVisit.InitLongList(uTIULocationName); cboNewVisit.SelectByIEN(uTIULocation); + cboNewVisitChange(Self); end else @@ -264,7 +276,18 @@ with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW'; FFromSelf := False; + ActiveControl := cboNewVisit; end - else cboNewVisit.InitLongList(''); - ckbHistorical.Checked := FVisitCategory = 'E'; + 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} @@ -473,3 +496,45 @@ 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. Index: cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fEncntKEEP.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm (revision 460) @@ -1,8 +1,8 @@ object frmFrame: TfrmFrame - Left = 145 - Top = 191 + Left = 77 + Top = 123 Width = 684 - Height = 487 - Caption = 'CPRS Frame' + Height = 384 + Caption = 'p' Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -30,5 +30,5 @@ Top = 0 Width = 676 - Height = 441 + Height = 330 Align = alClient Caption = 'No patient is currently selected' @@ -46,5 +46,5 @@ Top = 0 Width = 676 - Height = 441 + Height = 330 Align = alClient TabOrder = 0 @@ -75,5 +75,5 @@ Left = 0 Top = 1 - Width = 24 + Width = 39 Height = 39 Align = alLeft @@ -81,11 +81,11 @@ ParentShowHint = False ShowHint = True - TabOrder = 7 + TabOrder = 8 object imgCCOW: TImage Left = 2 Top = 2 - Width = 20 + Width = 35 Height = 35 - Align = alLeft + Align = alClient Center = True Picture.Data = { @@ -120,5 +120,5 @@ end object pnlPatient: TKeyClickPanel - Left = 24 + Left = 39 Top = 1 Width = 187 @@ -202,5 +202,5 @@ end object pnlVisit: TKeyClickPanel - Left = 211 + Left = 226 Top = 1 Width = 168 @@ -263,7 +263,7 @@ end object pnlPrimaryCare: TKeyClickPanel - Left = 379 + Left = 394 Top = 1 - Width = 104 + Width = 31 Height = 39 Hint = 'Primary Care Team / Primary Care Provider' @@ -323,5 +323,5 @@ end object pnlCIRN: TKeyClickPanel - Left = 518 + Left = 520 Top = 1 Width = 49 @@ -338,29 +338,62 @@ ParentShowHint = False ShowHint = True - TabOrder = 4 + TabOrder = 5 OnClick = pnlCIRNClick OnEnter = pnlPrimaryCareEnter OnExit = pnlPrimaryCareExit + OnMouseDown = pnlCIRNMouseDown + OnMouseUp = pnlCIRNMouseUp object lblCIRN: TLabel - Left = 3 - Top = 4 - Width = 37 + 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 = 11 - Top = 22 - Width = 23 + 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 = 567 + Left = 569 Top = 1 Width = 35 @@ -377,5 +410,5 @@ ParentShowHint = False ShowHint = True - TabOrder = 5 + TabOrder = 6 TabStop = True OnClick = pnlRemindersClick @@ -405,5 +438,5 @@ end object pnlFlag: TKeyClickPanel - Left = 483 + Left = 485 Top = 1 Width = 35 @@ -415,5 +448,5 @@ ParentShowHint = False ShowHint = True - TabOrder = 3 + TabOrder = 4 TabStop = True OnClick = pnlFlagClick @@ -445,7 +478,7 @@ end object pnlPostings: TKeyClickPanel - Left = 602 + Left = 604 Top = 1 - Width = 72 + Width = 70 Height = 39 Hint = 'Click to display patient postings.' @@ -460,5 +493,5 @@ ParentShowHint = False ShowHint = True - TabOrder = 6 + TabOrder = 7 TabStop = True OnClick = pnlPostingsClick @@ -468,5 +501,5 @@ OnMouseUp = pnlPostingsMouseUp object lblPtPostings: TStaticText - Left = 6 + Left = 5 Top = 4 Width = 57 @@ -509,8 +542,55 @@ 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 = 419 + Top = 308 Width = 674 Height = 21 @@ -544,5 +624,5 @@ object tabPage: TTabControl Left = 1 - Top = 397 + Top = 286 Width = 674 Height = 22 @@ -563,5 +643,5 @@ Top = 42 Width = 674 - Height = 355 + Height = 244 Align = alClient BevelOuter = bvNone @@ -607,6 +687,6 @@ end object mnuFrame: TMainMenu - Left = 68 - Top = 120 + Left = 180 + Top = 128 object mnuFile: TMenuItem Caption = '&File' @@ -715,4 +795,5 @@ Tag = 8 Caption = '8 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -720,4 +801,5 @@ Tag = 10 Caption = '10 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -725,4 +807,5 @@ Tag = 12 Caption = '12 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -730,4 +813,5 @@ Tag = 14 Caption = '14 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -735,4 +819,5 @@ Tag = 18 Caption = '18 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -740,4 +825,5 @@ Tag = 24 Caption = '24 pt' + RadioItem = True OnClick = mnuFontSizeClick end @@ -811,16 +897,52 @@ end end - object mnuViewDemo: TMenuItem - Caption = 'De&mographics' - OnClick = mnuViewDemoClick - end - object mnuViewPostings: TMenuItem - Caption = '&Postings' - OnClick = mnuViewPostingsClick - end - object mnuViewReminders: TMenuItem - Caption = '&Reminders' - Enabled = False - OnClick = mnuViewRemindersClick + 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 @@ -832,4 +954,9 @@ Caption = '-' end + object mnuToolsGraphing: TMenuItem + Caption = '&Graphing...' + ShortCut = 16455 + OnClick = mnuToolsGraphingClick + end object LabInfo1: TMenuItem Caption = '&Lab Test Information...' @@ -837,5 +964,5 @@ end object mnuToolsOptions: TMenuItem - Caption = 'Options...' + Caption = '&Options...' OnClick = mnuToolsOptionsClick end @@ -896,11 +1023,11 @@ object OROpenDlg: TOpenDialog Filter = 'Exe file (*.exe)|*.exe' - Left = 460 - Top = 369 + Left = 260 + Top = 257 end object popAlerts: TPopupMenu AutoPopup = False - Left = 440 - Top = 416 + Left = 320 + Top = 200 object mnuAlertContinue: TMenuItem Caption = 'Continue' @@ -918,6 +1045,7 @@ object AppEvents: TApplicationEvents OnActivate = AppEventsActivate - Left = 496 - Top = 368 + OnShortCut = AppEventsShortCut + Left = 336 + Top = 256 end end Index: cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas (revision 459) +++ cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas (revision 460) @@ -5,4 +5,5 @@ {$OPTIMIZATION OFF} // REMOVE AFTER UNIT IS DEBUGGED {$WARN SYMBOL_PLATFORM OFF} +{$DEFINE CCOWBROKER} {.$define debug} @@ -120,4 +121,16 @@ 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); @@ -142,5 +155,4 @@ procedure mnuHelpBrokerClick(Sender: TObject); procedure mnuFileEncounterClick(Sender: TObject); - procedure mnuViewDemoClick(Sender: TObject); procedure mnuViewPostingsClick(Sender: TObject); procedure mnuHelpAboutClick(Sender: TObject); @@ -171,5 +183,4 @@ function FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean; - procedure mnuViewRemindersClick(Sender: TObject); procedure pnlRemindersMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); @@ -219,5 +230,15 @@ 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; @@ -228,4 +249,5 @@ FCCOWBusy: boolean; FCCOWError: boolean; + FNoPatientSelected: boolean; FRefreshing: boolean; FClosing: boolean; @@ -242,4 +264,5 @@ FTabChanged: TNotifyEvent; FOldActivate: TNotifyEvent; + FOldActiveFormChange: TNotifyEvent; FECSAuthUser: Boolean; FFixedStatusWidth: integer; @@ -248,5 +271,9 @@ FFlagList: TStringList; FPrevPtID: string; + FVitalsDLLActive: boolean; + FGraphFloatActive: boolean; + FGraphContext: string; procedure RefreshFixedStatusWidth; + procedure FocusApplicationTopForm; procedure AppActivated(Sender: TObject); procedure AppDeActivated(Sender: TObject); @@ -272,5 +299,5 @@ procedure SetDebugMenu; procedure SetupPatient(AFlaggedList : TStringList = nil); - procedure SetUpCIRN; + //procedure SetUpCIRN; procedure RemindersChanged(Sender: TObject); procedure ReportsOnlyDisplay; @@ -283,15 +310,19 @@ procedure UpdateECSParameter(var CmdParameter: string); function ValidECSUser: boolean; - function AllowCCOWContextChange(NewDFN: string): 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; + function FindBestCCOWDFN: string; procedure HandleCCOWError(AMessage: string); public - EnduringPtSelSplitterPos: integer; + EnduringPtSelSplitterPos: integer; procedure SetBADxList; @@ -309,4 +340,9 @@ 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; @@ -331,10 +367,18 @@ uses ORNet, rCore, fPtSelMsg, fPtSel, fCover, fProbs, fMeds, fOrders, rOrders, fNotes, fConsults, fDCSumm, - rMisc, Clipbrd, fLabs, fReports, fPtDemo, fEncnt, fPtCWAD, uCore, fAbout, fReview, fxBroker, + 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, rTemplates, fSurgery, rSurgery, uEventHooks, uSignItems, fDefaultEvent,rECS, + fOptions, fGraphs, rTemplates, fSurgery, rSurgery, uEventHooks, uSignItems, fDefaultEvent,rECS, fIconLegend, uOrders, fPtSelOptns, DateUtils, uSpell, uOrPtf, fPatientFlagMulti, - fAlertForward, UBAGlobals, fBAOptionsDiagnoses,UBACore,fOrdersSign; + 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 @@ -410,5 +454,8 @@ procedure TfrmFrame.TimeOutAction; begin - Close; + if frmFrame.VitalsDLLActive then + CloseVitalsDLL() + else + Close; end; @@ -460,5 +507,5 @@ FContextChanging := True; Result := True; - if COMObjectActive or SpellCheckInProgress then + if COMObjectActive or SpellCheckInProgress or VitalsDLLActive then begin Reason := 'COM_OBJECT_ACTIVE'; @@ -531,4 +578,13 @@ 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; @@ -564,18 +620,11 @@ FJustEnteredApp := false; SizeHolder := TSizeHolder.Create; + FOldActiveFormChange := Screen.OnActiveFormChange; Screen.OnActiveFormChange := ScreenActiveFormChange; if not (ParamSearch('CCOW')='DISABLE') then try - ctxContextor := TContextorControl.Create(Self); - with ctxContextor do - begin - OnPending := ctxContextorPending; - OnCommitted := ctxContextorCommitted; - OnCanceled := ctxContextorCanceled; - end; - FCCOWBusy := False; - FCCOWInstalled := True; - FCCOWDrivedChange := False; + StartCCOWContextor; except + IsRunExecuted := False; FCCOWInstalled := False; pnlCCOW.Visible := False; @@ -585,4 +634,5 @@ else begin + IsRunExecuted := False; FCCOWInstalled := False; pnlCCOW.Visible := False; @@ -603,8 +653,29 @@ 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; @@ -616,6 +687,6 @@ FOldActivate := Application.OnActivate; Application.OnActivate := AppActivated; - Application.OnDeactivate := AppDeActivated; - + Application.OnDeActivate := AppDeActivated; + // create initial core objects FCreateProgress := FCP_OBJECTS; @@ -695,5 +766,4 @@ HasFlag := False; FlagList := TStringList.Create; - FPrevPtID := ''; // set up structures specific to the user Caption := TX_IN_USE + MixedCase(User.Name) + ' (' + RPCBrokerV.Server + ')'; @@ -729,5 +799,8 @@ FCreateProgress := FCP_FINISH; pnlReminders.Visible := InteractiveRemindersActive; + GraphFloatActive := false; + GraphContext := ''; uRemoteType := ''; + FPrevPtID := ''; SetUserTools; EnduringPtSelSplitterPos := 0; @@ -736,5 +809,4 @@ InitialOrderVariables; PostMessage(Handle, UM_INITIATE, 0, 0); // select patient after main form is created - // mnuFileOpenClick(Self); // if Patient.DFN = '' then //*DFN* @@ -744,53 +816,70 @@ // end; // if WindowState = wsMinimized then WindowState := wsNormal; -end; - -procedure TfrmFrame.UMInitiate(var Message: TMessage); -begin - NotifyOtherApps(NAE_OPEN, IntToStr(User.DUZ)); - - if FCCOWInstalled then // Please see me re: changes here - Thanks - RV. + SetFormMonitoring(true); +end; + +procedure TfrmFrame.StartCCOWContextor; +begin try - // To re-enable the multiple instance functionality, remove the '#' from the following line - ctxContextor.Run('CPRSChart', '', TRUE, '*'); - - // Uncomment the following line to run in secure binding mode, once the vault is configured to do so. - // Also comment out the 'ctxContextor.Run' line above. - //ctxContextor.Run('CPRSChart', PASSCODE, TRUE, '*'); + 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 - try - // Uncomment the following line to run in secure binding mode, once the vault is configured to do so. - ctxContextor.Run('CPRSChart' + '#', '', TRUE, '*'); - //ctxContextor.Run('CPRSChart' + '#', PASSCODE, TRUE, '*'); - - if ParamSearch('CCOW') = 'FORCE' then + begin + IsRunExecuted := False; + FreeAndNil(ctxContextor); + try + ctxContextor := TContextorControl.Create(Self); + with ctxContextor do begin - mnuFileResumeContext.Enabled := False; - mnuFileBreakContext.Visible := True; - mnuFileBreakContext.Enabled := True; - end - else - begin - ctxContextor.Suspend; - mnuFileResumeContext.Visible := True; - mnuFileBreakContext.Visible := True; - mnuFileBreakContext.Enabled := False; + OnPending := ctxContextorPending; + OnCommitted := ctxContextorCommitted; + OnCanceled := ctxContextorCanceled; end; - except - on exc : EOleException do - begin - FCCOWInstalled := False; - pnlCCOW.Visible := False; - mnuFileResumeContext.Visible := False; - mnuFileBreakContext.Visible := False; - 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; - end; // on exc - end; // try/except - + 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,Encounter.Location); + GetBAStatus(User.DUZ,Patient.DFN); mnuFileOpenClick(Self); Enabled := True; @@ -803,4 +892,5 @@ begin Application.OnActivate := FOldActivate; + Screen.OnActiveFormChange := FOldActiveFormChange; FNextButtonBitmap.Free; uTabList.Free; @@ -814,4 +904,5 @@ User.Free; SizeHolder.Free; + ctxContextor.Free; end; @@ -833,8 +924,4 @@ procedure TfrmFrame.SetUserTools; -const - TX_M_NOT_CONFIG = 'Tools/Options menu on M side not configured properly -'+ - ' please notify your IRM support immediately'; - TC_M_NOT_CONFIG = 'Warning: Check Tools/Options Menu in M'; var ToolItems: TToolItemList; @@ -885,11 +972,5 @@ UserTool.Hint := Action; UserTool.OnClick := ToolClick; - if i < mnuTools.Count then - mnuTools.Insert(i, UserTool) - else - begin - mnuTools.Add(UserTool); - InfoBox(TX_M_NOT_CONFIG, TC_M_NOT_CONFIG, MB_ICONWARNING or MB_OK) - end; + mnuTools.Insert(i, UserTool); end; end; @@ -965,4 +1046,5 @@ begin FClosing := TRUE; + SetFormMonitoring(false); if FCreateProgress < FCP_FINISH then FTerminate := True; @@ -970,4 +1052,11 @@ 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 @@ -976,5 +1065,5 @@ if FCreateProgress = FCP_FINISH then Changes.Clear; // clear server side flag global tmp - ClearFlag; + if FCreateProgress = FCP_FINISH then ClearFlag; // save user preferences if FCreateProgress = FCP_FINISH then SaveUserPreferences; @@ -1005,4 +1094,5 @@ //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; @@ -1234,30 +1324,23 @@ NotifyOtherApps(NAE_NEWPT, SSN + U + FloatToStr(DOB) + U + Name); SelectMsg := ''; - if (not FRefreshing) then - begin - if not Assigned(AFlaggedList) then ShowFlags - else if (AFlaggedList.IndexOf(Patient.DFN) < 0) then ShowFlags; - end; if MeansTestRequired(Patient.DFN, AMsg) then SelectMsg := AMsg; if HasLegacyData(Patient.DFN, AMsg) then SelectMsg := SelectMsg + CRLF + AMsg; + HasActiveFlg(FlagList, HasFlag, Patient.DFN); - if FPrevPtID <> patient.DFN then - begin - if HasFlag then - begin - pnlFlag.Enabled := True; - lblFlag.Font.Color := clMaroon; - lblFlag.Enabled := True; - if not FReFreshing then - ShowFlags; - end else - begin - pnlFlag.Enabled := False; - lblFlag.Font.Color := clBtnFace; - lblFlag.Enabled := False; - end; - FPrevPtID := 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); @@ -1270,4 +1353,5 @@ NextIndex: Integer; Reason: string; + CCOWResponse: UserResponse; begin SaveDFN := Patient.DFN; @@ -1293,5 +1377,5 @@ HasActiveFlg(FlagList, HasFlag, NewDFN); end; - if (FCCOWInstalled and (ctxContextor.State = csSuspended)) or (AllowCCOWContextChange(Patient.DFN)) then + if (FCCOWInstalled and (ctxContextor.State = csSuspended)) or (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then begin if Patient.Inpatient then @@ -1333,5 +1417,6 @@ mnuFileNotifRemove.Enabled := Notifications.Followup in [NF_FLAGGED_ORDERS, NF_ORDER_REQUIRES_ELEC_SIGNATURE, - NF_MEDICATIONS_EXPIRING, + NF_MEDICATIONS_EXPIRING_INPT, + NF_MEDICATIONS_EXPIRING_OUTPT, NF_UNVERIFIED_MEDICATION_ORDER, NF_UNVERIFIED_ORDER, @@ -1361,5 +1446,6 @@ NextIndex := PageIDToTab(CT_REPORTS); NF_DNR_EXPIRING : NextIndex := PageIDToTab(CT_ORDERS); - NF_MEDICATIONS_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); @@ -1431,7 +1517,9 @@ SaveDFN, Reason: string; //NextTab: Integer; // moved up for visibility - v23.4 rV - ok, OldRemindersStarted: boolean; + ok, OldRemindersStarted, PtSelCancelled: boolean; //i: smallint; -begin + CCOWResponse: UserResponse; +begin + PtSelCancelled := FALSE; DetermineNextTab; (* if (FRefreshing or User.UseLastTab) and (not FFirstLoad) then @@ -1471,5 +1559,9 @@ end; - SaveDFN := Patient.DFN; + if FNoPatientSelected then + SaveDFN := '' + else + SaveDFN := Patient.DFN; + OldRemindersStarted := RemindersStarted; RemindersStarted := FALSE; @@ -1502,5 +1594,6 @@ end; if (Patient.DFN = '') or (Sender = mnuFileOpen) or (Sender = mnuFileNext) or (Sender = mnuViewDemo) then - SelectPatient(SHOW_NOTIFICATIONS, Font.Size); + SelectPatient(SHOW_NOTIFICATIONS, Font.Size, PtSelCancelled); + if PtSelCancelled then exit; ShowEverything; DisplayEncounterText; @@ -1536,7 +1629,8 @@ begin Notifications.Clear; - SelectPatient(False, Font.Size); // Call Pt. Sel. w/o notifications. + SelectPatient(False, Font.Size, PtSelCancelled); // Call Pt. Sel. w/o notifications. + if PtSelCancelled then exit; ShowEverything; - DisplayEncounterText; + DisplayEncounterText; FPrevInPatient := Patient.Inpatient; ok := TRUE; @@ -1547,5 +1641,5 @@ if FCCOWInstalled and (ctxContextor.State = csParticipating) and (not FRefreshing) then begin - if (AllowCCOWContextChange(Patient.DFN)) then + if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then begin SetupPatient; @@ -1555,8 +1649,15 @@ else begin - Patient.DFN := SaveDFN; - SetupPatient; - tabPage.TabIndex := PageIDToTab(NextTab); - tabPageChange(tabPage); + 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; + end; end; end @@ -1576,5 +1677,5 @@ 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; @@ -1669,21 +1770,6 @@ { View Menu Events ------------------------------------------------------------------------- } -procedure TfrmFrame.mnuViewDemoClick(Sender: TObject); -{ displays patient inquiry report (which optionally allows new patient to be selected) } -var - SelectNew: Boolean; -begin - StatusText(TX_PTINQ); - PatientInquiry(SelectNew); - if Assigned(FLastPage) then - FLastPage.FocusFirstControl; - StatusText(''); - if SelectNew then mnuFileOpenClick(mnuViewDemo); -end; - procedure TfrmFrame.mnuViewPostingsClick(Sender: TObject); -{ displays the window that shows crisis notes, warnings, allergies, & advance directives } -begin - ShowCWAD; +begin end; @@ -1933,4 +2019,5 @@ { 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); @@ -1943,4 +2030,5 @@ { 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); @@ -2034,4 +2122,5 @@ 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; @@ -2045,7 +2134,9 @@ frmMeds.pnlBottom.Height := panelBottom; frmMeds.pnlMedIn.Height := panelMedIn; + //Meds Tab Non-VA meds columns + SetUserColumns(TControl(hdrMedsNonVA)); //CQ7314 end; - frmCover.DisableAlign; + frmCover.DisableAlign; try SetUserBounds2(CoverSplitters1, s1, s2, s3, s4); @@ -2076,4 +2167,5 @@ var SizeList: TStringList; + SurgTempHt: integer; begin SaveUserFontSize(MainFontSize); @@ -2098,7 +2190,12 @@ 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,0)); + frmDCSumm.Drawers.LastOpenSize, + SurgTempHt)); // last parameter = CQ7315 + Add(StrUserBounds2(CoverSplitters1, frmCover.pnl_1.Width, @@ -2114,4 +2211,10 @@ //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 @@ -2185,4 +2288,6 @@ 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 @@ -2192,4 +2297,17 @@ 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 ); @@ -2206,4 +2324,13 @@ 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; @@ -2223,4 +2350,5 @@ if Assigned(frmRemDlg) then frmRemDlg.SetFontSize; if Assigned(frmReminderTree) then frmReminderTree.SetFontSize(NewFontSize); + if GraphFloat <> nil then ResizeAnchoredFormToFont(GraphFloat); end; @@ -2231,6 +2359,7 @@ VISIT_WIDTH = 36; POSTING_WIDTH = 11.5; - FLAG_WIDTH =5; + FLAG_WIDTH = 5; CIRN_WIDTH = 7; + MHV_WIDTH = 6; LINES_HIGH = 2; M_HORIZ = 4; @@ -2239,6 +2368,6 @@ M_WVERT = 6; TINY_MARGIN = 2; -var - WidthNeeded: integer; +//var + //WidthNeeded: integer; begin pnlToolbar.Height := (LINES_HIGH * lblPtName.Height) + M_HORIZ + M_MIDDLE + M_HORIZ; @@ -2257,5 +2386,6 @@ pnlFlag.Width := Round(FLAG_WIDTH * MainFontWidth); pnlFlag.Width := Round(FLAG_WIDTH * MainFontWidth); - pnlCIRN.Width := Round(CIRN_WIDTH * MainFontWidth) + M_WVERT; + 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); @@ -2274,5 +2404,5 @@ 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 + {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; @@ -2280,9 +2410,20 @@ Width := Width + WidthNeeded; end - else + 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); @@ -2290,8 +2431,16 @@ if (frmRemDlg <> nil) then ShowMessage('Please close the reminder dialog before changing font sizes.') - else if (dlgProbs <> nil) then + else + if (dlgProbs <> nil) then ShowMessage('Font size cannot be changed while adding or editing a problem.') else - with Sender as TMenuItem do ChangeFont(Tag); + begin + with (Sender as TMenuItem) do + begin + ToggleMenuItemChecked(Sender); + fMeds.oldFont := MainFontSize; //CQ9182 + ChangeFont(Tag); + end; + end; end; @@ -2413,9 +2562,22 @@ inherited; end; -end; - -procedure TfrmFrame.mnuViewRemindersClick(Sender: TObject); -begin - ViewReminderTree; + 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; @@ -2423,5 +2585,4 @@ var ImgName: string; - begin pnlReminders.tag := HAVE_REMINDERS; @@ -2497,5 +2658,5 @@ pnlReminders.BevelOuter := bvRaised; if(pnlReminders.tag = HAVE_REMINDERS) then - mnuViewRemindersClick(Self); + ViewInfo(mnuViewReminders); end; @@ -2505,13 +2666,27 @@ 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 @@ -2519,5 +2694,10 @@ 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 @@ -2525,7 +2705,59 @@ 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'); @@ -2541,14 +2773,39 @@ 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; -end; - -procedure TfrmFrame.pnlCIRNClick(Sender: TObject); -begin if not RemoteSites.RemoteDataExists then Exit; if (not lstCIRNLocations.Visible) then @@ -2566,5 +2823,6 @@ lstCIRNLocations.SendToBack; pnlCIRN.Hint := 'Click to display other facilities having data for this patient.'; - end + end } + ViewInfo(mnuViewRemoteData); end; @@ -2581,16 +2839,73 @@ AccessStatus: integer; begin - iAll := 0; + 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[lstCIRNLocations.ItemIndex] := false; + lstCIRNLocations.Checked[iIndex] := false; Exit; end; - if lstCIRNLocations.Items.Count > 0 then - if piece(lstCIRNLocations.Items[0],'^',1) = '0' then - iAll := 1; - iIndex := lstCIRNLocations.ItemIndex; + 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 @@ -2612,7 +2927,7 @@ with RemoteSites.SiteList do for j := 0 to Count - 1 do - if lstCIRNLocations.Checked[j+1] = true then + if lstCIRNLocations.Checked[j+2] = true then begin - lstCIRNLocations.Checked[j+1] := false; + lstCIRNLocations.Checked[j+2] := false; TRemoteSite(RemoteSites.SiteList[j]).Selected := false; TRemoteSite(RemoteSites.SiteList[j]).ReportClear; @@ -2630,11 +2945,11 @@ Screen.Cursor := crDefault; aMsg := aMsg + ' at site: ' + TRemoteSite(Items[j]).SiteName; - s := lstCIRNLocations.Items[j+1]; - lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3); + 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+1] := true; + lstCIRNLocations.Checked[j+2] := true; TRemoteSite(RemoteSites.SiteList[j]).ReportClear; TRemoteSite(RemoteSites.SiteList[j]).LabClear; @@ -2644,6 +2959,6 @@ begin InfoBox(aMsg, TC_DGSR_ERR, MB_OK); - lstCIRNLocations.Checked[j+1] := false; - lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR; + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR; TRemoteSite(Items[j]).Selected := false; Continue; @@ -2651,5 +2966,5 @@ end; DGSR_NONE: begin - lstCIRNLocations.Checked[j+1] := true; + lstCIRNLocations.Checked[j+2] := true; TRemoteSite(RemoteSites.SiteList[j]).ReportClear; TRemoteSite(RemoteSites.SiteList[j]).LabClear; @@ -2658,5 +2973,5 @@ DGSR_SHOW: begin InfoBox(AMsg, TC_DGSR_SHOW, MB_OK); - lstCIRNLocations.Checked[j+1] := true; + lstCIRNLocations.Checked[j+2] := true; TRemoteSite(RemoteSites.SiteList[j]).ReportClear; TRemoteSite(RemoteSites.SiteList[j]).LabClear; @@ -2666,5 +2981,5 @@ MB_DEFBUTTON2) = IDYES then begin - lstCIRNLocations.Checked[j+1] := true; + lstCIRNLocations.Checked[j+2] := true; TRemoteSite(RemoteSites.SiteList[j]).ReportClear; TRemoteSite(RemoteSites.SiteList[j]).LabClear; @@ -2673,6 +2988,6 @@ else begin - lstCIRNLocations.Checked[j+1] := false; - lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW; + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW; TRemoteSite(Items[j]).Selected := false; Continue; @@ -2680,6 +2995,6 @@ else begin InfoBox(AMsg, TC_DGSR_DENY, MB_OK); - lstCIRNLocations.Checked[j+1] := false; - lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY; + lstCIRNLocations.Checked[j+2] := false; + lstCIRNLocations.Items[j+2] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY; TRemoteSite(Items[j]).Selected := false; Continue; @@ -2690,5 +3005,5 @@ else begin - if iIndex > -1 then + if iIndex > 0 then begin iCur := iIndex - iAll; @@ -2779,6 +3094,8 @@ TRemoteSite(Items[j])); end; - frmLabs.TabControl1.OnChange(nil); - frmReports.TabControl1.OnChange(nil); + //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; @@ -2817,7 +3134,7 @@ procedure TfrmFrame.lstCIRNLocationsChange(Sender: TObject); begin - if lstCIRNLocations.ItemIndex > -1 then + if lstCIRNLocations.ItemIndex > 0 then if (lstCIRNLocations.Selected[lstCIRNLocations.ItemIndex] = true) and (uUpdateStat = false) then - if not (piece(lstCIRNLocations.Items[0],'^',1) = '0') then + if not (piece(lstCIRNLocations.Items[1],'^',1) = '0') then lstCIRNLocations.OnClick(nil); end; @@ -2852,5 +3169,6 @@ if not Notifications.Active then Exit; case Notifications.Followup of - NF_MEDICATIONS_EXPIRING : AlertType := 'Expiring Medications'; + 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)'; @@ -2935,5 +3253,9 @@ FOSTFhintWindow.ReleaseHandle; FOSTFHintWndActive := False ; - + end; + if FHintWinActive then // graphing - hints on values + begin + FHintWin.ReleaseHandle; + FHintWinActive := false; end; end; @@ -3080,4 +3402,6 @@ 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 @@ -3092,4 +3416,6 @@ 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; @@ -3101,6 +3427,5 @@ end; -procedure TfrmFrame.FormKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); +procedure TfrmFrame.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var NewTabIndex: integer; @@ -3108,8 +3433,6 @@ //CQ2844: Toggle Remote Data button using Alt+R case Key of - 82,114: begin - if (ssAlt in Shift) then + 82,114: if (ssAlt in Shift) then frmFrame.pnlCIRNClick(Sender); - end; end; @@ -3173,16 +3496,18 @@ procedure TfrmFrame.pnlPatientClick(Sender: TObject); begin - mnuViewDemoClick(Self); + ViewInfo(mnuViewDemo); end; procedure TfrmFrame.pnlVisitClick(Sender: TObject); begin - if (not User.IsReportsOnly) then // Reports Only tab. - mnuFileEncounterClick(Self); + //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); + //ReportBox(DetailPrimaryCare(Patient.DFN), 'Primary Care', True); + ViewInfo(mnuViewPrimaryCare); end; @@ -3190,10 +3515,11 @@ begin if(pnlReminders.tag = HAVE_REMINDERS) then - mnuViewRemindersClick(Self); + ViewInfo(mnuViewReminders); + end; procedure TfrmFrame.pnlPostingsClick(Sender: TObject); begin - mnuViewPostingsClick(Self); + ViewInfo(mnuViewPostings); end; @@ -3216,5 +3542,5 @@ end; -function TfrmFrame.AllowCCOWContextChange(NewDFN: string): boolean; +function TfrmFrame.AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean; var PtData : IContextItemCollection; @@ -3248,4 +3574,8 @@ IsProdAcct := User.IsProductionAccount; + {$IFDEF CCOWBROKER} + //IsProdAcct := RPCBrokerV.Login.IsProduction; //not yet + {$ENDIF} + PtDataItem2 := CoContextItem.Create(); PtDataItem2.Set_Name('Patient.co.PatientName'); // Patient.Name @@ -3293,4 +3623,5 @@ end; + CCOWResponse := response; if (response = UrCommit) then begin @@ -3355,4 +3686,7 @@ Reason, HyperLinkReason: string; PtChanged: boolean; +{$IFDEF CCOWBROKER} + UserChanged: boolean; +{$ENDIF} begin // If the app would lose data, or have other problems changing context at @@ -3370,4 +3704,7 @@ try CheckForDifferentPatient(aContextItemCollection, PtChanged); +{$IFDEF CCOWBROKER} + CheckForDifferentUser(aContextItemCollection, UserChanged); +{$ENDIF} except on E: Exception do HandleCCOWError(E.Message); @@ -3379,5 +3716,9 @@ end; +{$IFDEF CCOWBROKER} + if PtChanged or UserChanged then +{$ELSE} if PtChanged then +{$ENDIF} begin FCCOWContextChanging := True; @@ -3404,5 +3745,16 @@ FCCOWError := False; try - CheckForDifferentPatient(ctxContextor.CurrentContext, PtChanged); + {$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); @@ -3457,4 +3809,7 @@ end; IsProdAcct := User.IsProductionAccount; + {$IFDEF CCOWBROKER} + //IsProdAcct := RPCBrokerV.Login.IsProduction; //not yet + {$ENDIF} // Get an item collection of the current context FCCOWError := False; @@ -3495,5 +3850,5 @@ //PtDFN := FindBestCCOWDFN(PtName); PtDFN := FindBestCCOWDFN; - if PtDFN <> '' then + if StrToInt64Def(PtDFN, 0) > 0 then begin // Select new patient based on context value @@ -3517,5 +3872,6 @@ end; if User.IsProvider then Encounter.Provider := User.DUZ; - SetupPatient; + if not FFirstLoad then SetupPatient; + frmCover.UpdateVAAButton; //VAA DetermineNextTab; tabPage.TabIndex := PageIDToTab(NextTab); @@ -3571,5 +3927,10 @@ procedure TfrmFrame.mnuFileResumeContextSetClick(Sender: TObject); -begin +var + CCOWResponse: UserResponse; + Reason: string; +begin + Reason := ''; + if not AllowContextChangeAll(Reason) then exit; FCCOWIconName := 'BMP_CCOW_CHANGING'; pnlCCOW.Hint := TX_CCOW_CHANGING; @@ -3582,5 +3943,5 @@ end; if FCCOWError then exit; - if (AllowCCOWContextChange(Patient.DFN)) then + if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then begin mnuFileResumeContext.Enabled := False; @@ -3598,4 +3959,9 @@ 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; @@ -3607,5 +3973,5 @@ var data : IContextItemCollection; - anItem : IContextItem; + anItem: IContextItem; PtDFN, PtName: string; begin @@ -3623,4 +3989,19 @@ 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); @@ -3651,4 +4032,5 @@ procedure TfrmFrame.HideEverything; begin + FNoPatientSelected := TRUE; pnlNoPatientSelected.Visible := True; pnlNoPatientSelected.BringToFront; @@ -3671,4 +4053,5 @@ procedure TfrmFrame.ShowEverything; begin + FNoPatientSelected := FALSE; pnlNoPatientSelected.Visible := False; pnlNoPatientSelected.SendToBack; @@ -3711,5 +4094,6 @@ procedure TfrmFrame.pnlFlagClick(Sender: TObject); begin - ShowFlags; + //ShowFlags; + ViewInfo(mnuViewFlags); end; @@ -3812,20 +4196,224 @@ 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 - //Locate the Form that Stays on Top after the Application Regains focus. - if FJustEnteredApp then - 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; + 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; - FJustEnteredApp := false; - end; -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 @@ -3833,4 +4421,6 @@ finalization + end. + Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphProfiles.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphSettings.pas (revision 460) @@ -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. Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphs.dfm =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphs.dfm (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphs.dfm (revision 460) @@ -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 Index: cprs/branches/foia-cprs/CPRS-Chart/fGraphs.pas =================================================================== --- cprs/branches/foia-cprs/CPRS-Chart/fGraphs.pas (revision 460) +++ cprs/branches/foia-cprs/CPRS-Chart/fGraphs.pas (revision 460) @@ -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, '^