Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart

cprs/branches/foia-cprs/CPRS-Chart/Accessibility_TLB.pas

-              r459
+              r460
 // LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
 // LCID: 0
 // Helpfile:
+// Helpfile:
 // DepndLst:
 //   (1) v2.0 stdole, (C:\WINNT\System32\Stdole2.tlb)
 …
 end.

cprs/branches/foia-cprs/CPRS-Chart/BA/UBACore.pas

-              r459
+              r460
 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);
 …
 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;
 …
 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
 …
+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;
 …
       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
 …
      currentOrderString := pOrderList.Strings[i];
      currentOrderID := piece(pOrderList.Strings[i],';',1)+ ';1';
      GetBADxListForOrder(baseDxRec, currentOrderID);
      FlagsStatsIn := BAFlagsIN;
 …
 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;
 …
 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.
 …
         baseDxRec := nil;
         baseDxRec := TBADxRecord.Create;
        InitializeNewDxRec(baseDxRec);
   try
+        InitializeNewDxRec(baseDxRec);
+       try
        for i := 0 to BAOrderList.Count-1 do
        begin
 …
           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;
 …
 procedure rpcGetProviderPatientDaysDx(ProviderIEN: string;PatientIEN: string);
+var i:integer;
+    x: string;
+var
     tmplst: TStringList;
 begin
 …
 function rpcGetTFHintData:TStringList;
 begin
-  Result := nil;
   tCallv(BATFHints,'ORWDBA3 HINTS', [nil]);
   Result := BATFHints;
 …
     rList.Clear;
     NonBillableOrderList.Clear;
-    Result := NonBillableOrderList;
     // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0
     tCallV(rList,'ORWDBA1 ORPKGTYP',[pOrderList]);
 …
       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
 …
            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;
 …
              if tempDxRec.FBADxCode = '' then
                 begin
                 Result := FALSE;
                 Break;
+                   Result := FALSE;
+                   Break;
                 end;
           end;
 …
-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;
 …
     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
 …
            TFResults := ( FBADxCode + U  + FBADxText );
   end;
     Dest := TFResults;
 end;
 …
 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;
 …
     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;
 …
      // 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);
 …
    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]);
 …
    thisList: TStringList;
    rList: TStringList;
-   i:integer;
-   x: string;
 begin
 …
   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;
 …
 function  IsAllOrdersNA(pOrderList:TStringList):boolean;
 var
   i,j:integer;
+  i:integer;
   rList: TStringList;
 begin
 …
   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]);
 …
                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
 …
                   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
 …
                      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;
 …
                 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;
 …
 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);
 …
           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
 …
 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;
 …
    Result := (strSC + strAO + strIR + strEC + strMST + strHNC + strCV);
 end;
 // Delete dc'd orders from BACopiedOrderList to keep things in sync.
 procedure DeleteDCOrdersFromCopiedList(pOrderID:string);
 …
 procedure UpdateBAConsultOrderList(pDcOrders: TStringList);
 var
  AnOrder,x: string;
+ x: string;
  var i,j: integer;
  holdList : TStringList;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/BA/UBAGlobals.pas

-              r459
+              r460
    sourceOrderID: TStringList;
    targetOrderIDLst: TStringList;
-   i:integer;
-   tempOrderStr:string;
 begin
      //Retrieve TF's/CI's from SOURCE Order
 …
    if UBAGlobals.tempDxNodeExists(thisOrderID) then
      begin
-     thisRec := TBADxRecord.Create;
      if Assigned(tempDxList) then
 …
 begin
   Result := 0;
-  thisRec := TBADxRecord.Create;
    if Assigned(tempDxList) then
 …
   selectedOrders: smallint;
 begin
-  Result := 0;
   selectedOrders := 0;
 …
    if UBAGlobals.tempDxNodeExists(thisOrderID) then
      begin
-     thisRec := TBADxRecord.Create;
      if Assigned(tempDxList) then
 …
   Result := false;
-  thisRec := TBADxRecord.Create;
      try
         for i := 0 to tempDxList.Count - 1 do
 …
   i: integer;
 begin
-  thisRec := TBADxRecord.Create;
   try
 …
 // 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
 …
 begin
   Result := false;
-  thisRec := TBADxRecord.Create;
   if Assigned(tempDxList) then
      try

cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.dfm

-              r459
+              r460
   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'
 …
     DesignSize = (
 )
+)
     object lbOrders: TListBox
       Left = 8
       Top = 24
+      Left = 7
+      Top = 25
       Width = 599
       Height = 69
 …
       IntegralHeight = True
       ItemHeight = 13
       TabOrder = 1
+      TabOrder = 2
       OnMouseMove = lbOrdersMouseMove
     end
     object ORStaticText1: TORStaticText
       Left = 8
+      Left = 216
       Top = 8
       Width = 169
 …
       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

cprs/branches/foia-cprs/CPRS-Chart/BA/fBALocalDiagnoses.pas

-              r459
+              r460
      end;
   TfrmBALocalDiagnoses = class(TfrmAutoSz)
-    lblPatientName: TStaticText;
     pnlTop: TPanel;
     lbOrders: TListBox;
 …
     ORStaticText3: TORStaticText;
     ORStaticText4: TORStaticText;
+    lblPatientName: TStaticText;
     procedure buOKClick(Sender: TObject);
     procedure buCancelClick(Sender: TObject);
 …
 procedure TfrmBALocalDiagnoses.AddToProblemList;
 var
    i,j: integer;
    tempCode, passCode,x: string;
+   i: integer;
+   tempCode, passCode: string;
    NewList: TStringList;
    PatientInfo:string;

cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm

-              r459
+              r460
       TabOrder = 0
       object Splitter1: TSplitter
         Left = 468
+        Left = 458
         Top = 26
         Width = -3
 …
       end
       object Splitter2: TSplitter
         Left = 193
+        Left = 169
         Top = 26
         Width = 7
 …
       end
       object Splitter3: TSplitter
         Left = 467
+        Left = 457
         Top = 26
         Width = 1
 …
         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
 …
         Left = 1
         Top = 26
         Width = 192
+        Width = 168
         Height = 463
         Align = alLeft
 …
           Left = 0
           Top = 17
           Width = 192
+          Width = 161
           Height = 446
-          Align = alClient
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
 …
           Left = 0
           Top = 0
           Width = 192
+          Width = 168
           Height = 17
           DragReorder = False
 …
       end
       object Panel4: TPanel
         Left = 200
         Top = 26
         Width = 185
+        Left = 176
+        Top = 26
+        Width = 201
         Height = 463
         Align = alLeft
 …
           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
 …
           Left = 0
           Top = 0
           Width = 185
+          Width = 201
           Height = 17
           DragReorder = False
 …
       end
       object Panel5: TPanel
         Left = 465
         Top = 26
         Width = 247
+        Left = 455
+        Top = 26
+        Width = 257
         Height = 463
         Align = alClient
 …
           Left = 0
           Top = 17
           Width = 247
+          Width = 257
           Height = 446
           Align = alClient
 …
           ParentShowHint = False
           ShowHint = True
+          Sorted = True
           TabOrder = 0
           OnClick = lbPersonalDxClick
 …
           Left = 0
           Top = 0
           Width = 247
+          Width = 257
           Height = 17
           DragReorder = False
 …
       end
       object Panel7: TPanel
         Left = 387
+        Left = 377
         Top = 26
         Width = 78

cprs/branches/foia-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.pas

-              r459
+              r460
     btnAdd: TBitBtn;
     btnDelete: TBitBtn;
-    Splitter4: TSplitter;
     Splitter5: TSplitter;
     Button1: TButton;
 …
     procedure ListDiagnosesCodes(Section: String);
     procedure InactiveICDNotification;
+    procedure SyncDxDeleteList;
+    procedure SyncDxNewList;
   public
 …
     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;
 …
 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
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.cfg

-              r459
+              r460
 -$YD
 -$Z1
+-GD
 -cg
 -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 …
 -$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"

cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dof

-              r459
+              r460
 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [Linker]
 MapFile=0
+MapFile=3
 OutputObjs=0
 ConsoleApp=1
 …
 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=
 …
 MajorVer=1
 MinorVer=0
 Release=25
 Build=42
+Release=26
+Build=68
 Debug=0
 PreRelease=0
 …
 [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

cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.dpr

-              r459
+              r460
 uses
+  SQASrvr,
+  ShareMem,
   Forms,
   ORSystem,
 …
   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},
 …
   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}
 …
     Application.CreateForm(TdmodShared, dmodShared);
   Application.CreateForm(TfrmFrame, frmFrame);
+  Application.CreateForm(TfrmSearchStop, frmSearchStop);
   frmSplash.Free;                               // close & free splash screen
     Application.Run;

cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.drc

-              r459
+              r460
 */
+#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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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)"
 …
         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)"
 …
         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"
 …
         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"
 …
         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"
 …
         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"
 …
         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)"
 …
         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"
 …
         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"
 …
         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"
 …
         SysConst_SEndOfFile,    "Read beyond end of file"
         SysConst_SDiskFull,     "Disk full"
-        SysConst_SInvalidInput, "Invalid numeric input"
-        SysConst_SDivByZero,    "Division by zero"
 END

cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.dfm

-              r459
+              r460
         TabOrder = 3
         OnNeedData = NewPersonNeedData
+        CharsNeedMatch = 1
       end
       object cboUrgency: TORComboBox
 …
         SynonymChars = '<>'
         TabOrder = 2
+        CharsNeedMatch = 1
       end
       object treService: TORTreeView
 …
         OnKeyPause = cboServiceSelect
         OnMouseClick = cboServiceSelect
+        CharsNeedMatch = 1
       end
     end
 …
           TabStop = True
           OnNeedData = NewPersonNeedData
+          CharsNeedMatch = 1
         end
       end

cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.pas

r459	r460
465	465	FUrgency := cboUrgency.ItemIEN ;
466	466	if (FActionType = CN_ACT_SIGFIND) or (FActionType = CN_ACT_ADMIN_COMPLETE) then
467		FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],1,1);
	467	FSigFind := Copy(grpSigFindings.Items[grpSigFindings.ItemIndex],2,1);
468	468	LimitEditWidth(memComments, 74);
469	469	FComments := memComments.Lines ;

cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm

-              r459
+              r460
 inherited frmConsults: TfrmConsults
   Left = 327
   Top = 169
   Width = 660
+  Left = 247
+  Top = 174
+  Width = 723
   Height = 467
   HelpContext = 6000
 …
   inherited shpPageBottom: TShape
     Top = 416
     Width = 652
+    Width = 715
   end
   inherited sptHorz: TSplitter
 …
   inherited pnlRight: TPanel [2]
     Left = 85
     Width = 567
+    Width = 630
     Height = 416
     OnResize = pnlRightResize
 …
       Left = 0
       Top = 350
       Width = 567
+      Width = 630
       Height = 4
       Cursor = crVSplit
 …
       Left = 0
       Top = 0
       Width = 567
+      Width = 630
       Height = 350
       Align = alClient
 …
         Left = 0
         Top = 0
         Width = 567
+        Width = 630
         Height = 19
         Align = alTop
 …
         Left = 0
         Top = 19
         Width = 567
+        Width = 630
         Height = 331
         Align = alClient
 …
       Left = 0
       Top = 354
       Width = 567
+      Width = 630
       Height = 62
       Align = alBottom
 …
       Left = 0
       Top = 0
       Width = 567
+      Width = 630
       Height = 350
       Align = alClient
 …
         Left = 0
         Top = 67
         Width = 567
+        Width = 630
         Height = 283
         Align = alClient
 …
         Left = 0
         Top = 0
         Width = 567
+        Width = 630
         Height = 67
         Align = alTop
 …
         OnResize = pnlFieldsResize
         DesignSize = (
 )
         object bvlNewTitle: TBevel
 …
         end
         object lblAuthor: TStaticText
           Left = 339
+          Left = 402
           Top = 6
           Width = 152
 …
         end
         object lblCosigner: TStaticText
           Left = 244
+          Left = 307
           Top = 21
           Width = 243
 …
         end
         object cmdChange: TButton
           Left = 493
+          Left = 556
           Top = 6
           Width = 58
 …
           Left = 48
           Top = 40
           Width = 503
+          Width = 566
           Height = 21
           Hint = 'Subject is limited to a maximum of 80 characters.'
 …
         Height = 142
         Align = alClient
-        Color = clWhite
         HideSelection = False
         Indent = 15
 …
         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 = '-'

cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.pas

-              r459
+              r460
     popNoteMemoInsTemplate: TMenuItem;
     popNoteMemoEncounter: TMenuItem;
+    mnuViewInformation: TMenuItem;
+    mnuViewDemo: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewReminders: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
+    mnuViewPostings: TMenuItem;
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstConsultsClick(Sender: TObject);
 …
     procedure 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
 …
     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;
 …
             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 <> ''
 …
     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
 …
       CompleteConsult(IS_ID_CHILD, 0, UseClinProcTitles);
     end
   else if NoteIEN = -1 then Exit;
+  else if NoteIEN = -1 then Exit
 end;
 …
 procedure TfrmConsults.SaveSignItem(const ItemID, ESCode: string);
 { saves and optionally signs a progress note or addendum }
+const
+  SIG_COSIGN = 'COSIGNATURE';
+  SIG_SIGN   = 'SIGNATURE';
 var
   AnIndex, IEN, i: Integer;
   Saved, ContinueSign: Boolean;  {*RAB* 8/26/99}
   SignSts: TActionRec;
+  ActionSts, SignSts: TActionRec;
   APCEObject: TPCEData;
   OK: boolean;
 …
   tmpNode: TORTreeNode;
   ErrMsg: string;
+  ActionType, SignTitle: string;
 begin
   AnIndex := -1;
 …
   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);
 …
        then ContinueSign := False
     else ContinueSign := True;
     if ContinueSign then
     begin
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     SpellCheckForControl(memResults);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     GrammarCheckForControl(memResults);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
   SigAction: integer;
   SavedDocID, SavedCsltID: string;
+  ARefDate: TFMDateTime;
 begin
   inherited;
 …
     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
 …
     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;
 …
           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;
 …
 end;
 procedure TfrmConsults.DoAutoSave;
+procedure TfrmConsults.DoAutoSave(Suppress: integer = 1);
 var
   ErrMsg: string;
 …
   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;
 …
         (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
 …
   {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.}
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditConsult.dfm

-              r459
+              r460
 object frmEditCslt: TfrmEditCslt
   Tag = 110
   Left = 119
   Top = 94
+  Left = 409
+  Top = 225
   Width = 569
   Height = 367
 …
     SynonymChars = '<>'
     TabOrder = 0
+    CharsNeedMatch = 1
   end
   object cboUrgency: TORComboBox
 …
     TabOrder = 1
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object radInpatient: TRadioButton
 …
     TabOrder = 7
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object txtProvDiag: TCaptionEdit
 …
     Height = 21
     Anchors = [akLeft, akTop, akRight]
+    MaxLength = 180
     ParentShowHint = False
     PopupMenu = mnuPopProvDx
 …
     OnChange = ControlChange
     OnNeedData = txtAttnNeedData
+    CharsNeedMatch = 1
   end
   object cboCategory: TORComboBox
 …
     TabOrder = 14
     Visible = False
+    CharsNeedMatch = 1
   end
   object cmdAccept: TButton

cprs/branches/foia-cprs/CPRS-Chart/Consults/fEditProc.dfm

-              r459
+              r460
   Position = poScreenCenter
   DesignSize = (
 )
+)
   PixelsPerInch = 96
   TextHeight = 13
 …
     TabOrder = 2
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object radInpatient: TRadioButton
 …
     TabOrder = 6
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object txtProvDiag: TCaptionEdit
 …
     Height = 21
     Anchors = [akLeft, akTop, akRight]
+    MaxLength = 180
     ParentShowHint = False
     PopupMenu = mnuPopProvDx
 …
     OnChange = ControlChange
     OnNeedData = txtAttnNeedData
+    CharsNeedMatch = 1
   end
   object cboProc: TORComboBox
 …
     OnChange = cboProcSelect
     OnNeedData = cboProcNeedData
+    CharsNeedMatch = 1
   end
   object cboCategory: TORComboBox
 …
     Visible = False
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object cboService: TORComboBox
 …
     TabOrder = 1
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object memComment: TRichEdit

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm

-              r459
+              r460
 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
 …
   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
 …
       Left = 0
       Top = 0
       Width = 516
+      Width = 585
       Height = 13
       Align = alTop
 …
       Left = 0
       Top = 13
       Width = 516
       Height = 119
+      Width = 585
+      Height = 122
       Align = alClient
       Font.Charset = ANSI_CHARSET
 …
       Font.Name = 'Courier New'
       Font.Style = []
+      Constraints.MinHeight = 40
       ParentFont = False
       PopupMenu = popReason
 …
   end
   object lblUrgency: TStaticText [2]
     Left = 239
+    Left = 309
     Top = 2
     Width = 44
 …
   end
   object lblPlace: TStaticText [3]
     Left = 384
+    Left = 454
     Top = 43
     Width = 104
 …
   end
   object lblAttn: TStaticText [4]
     Left = 384
+    Left = 454
     Top = 2
     Width = 46
 …
   end
   object lblProvDiag: TStaticText [5]
     Left = 239
+    Left = 309
     Top = 81
     Width = 104
 …
   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...'
 …
   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
 …
     Left = 0
     Top = 16
     Width = 204
     Height = 73
+    Width = 274
+    Height = 113
     Anchors = [akLeft, akTop, akRight]
     Style = orcsSimple
 …
     OnChange = ControlChange
     OnClick = cboServiceSelect
+    OnExit = cboServiceExit
     OnKeyDown = cboServiceKeyDown
     OnKeyUp = cboServiceKeyUp
 …
   end
   object cboUrgency: TORComboBox
     Left = 239
+    Left = 309
     Top = 16
     Width = 133
 …
   end
   object cboPlace: TORComboBox
     Left = 384
+    Left = 454
     Top = 56
     Width = 136
 …
   end
   object txtProvDiag: TCaptionEdit
     Left = 239
+    Left = 309
     Top = 94
     Width = 231
     Height = 21
     Anchors = [akTop, akRight]
+    MaxLength = 180
     ParentShowHint = False
     PopupMenu = mnuPopProvDx
 …
   end
   object txtAttn: TORComboBox
     Left = 384
+    Left = 454
     Top = 16
     Width = 136
 …
   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
 …
   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
 …
     OnExit = pnlServiceTreeButtonExit
     object btnServiceTree: TSpeedButton
       Left = 1
       Top = 1
       Width = 23
+      Left = 2
+      Top = 2
+      Width = 22
       Height = 22
       Glyph.Data = {
 …
         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'
 …
   end
   object gbInptOpt: TGroupBox
     Left = 239
+    Left = 309
     Top = 35
     Width = 140
 …
   end
   object btnDiagnosis: TButton
     Left = 473
+    Left = 543
     Top = 95
     Width = 52
+    Width = 49
     Height = 20
     Anchors = [akTop, akRight]
 …
     OnPopup = popReasonPopup
     Left = 411
     Top = 169
+    Top = 188
     object popReasonCut: TMenuItem
       Caption = 'Cu&t'

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas

-              r459
+              r460
     procedure btnDiagnosisClick(Sender: TObject);
     procedure cmdQuitClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
 …
     procedure SetupReasonForRequest(OrderAction: integer);
     procedure GetProvDxandValidateCode(AResponses: TResponses);
     function  ShowPrerequisites: boolean;
+    function ShowPrerequisites: boolean;
     procedure DoSetFontSize(FontSize: integer);
     procedure SetUpQuickOrderDX;
 …
     procedure Validate(var AnErrMsg: string); override;
     function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings;
   public
     procedure SetupDialog(OrderAction: Integer; const ID: string); override;
 …
 uses
     rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, fPreReq,
     ORClasses, clipbrd, uTemplates;
+    ORClasses, clipbrd, uTemplates, fFrame, uODBase;
 var
 …
   BADxUpdated: boolean;
   quickCode: string;
 …
 procedure TfrmODCslt.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
 …
   cboService.Enabled := True;
   cboService.Font.Color := clWindowText;
+  cboService.Height := 25 + (7 * cboService.ItemHeight);
   btnServiceTree.Enabled := True;
+  pnlServiceTreeButton.Enabled := True;
   ActiveControl := cboService;
   SetProvDiagPromptingMode;
 …
       cboService.Font.Color := clGrayText;
       btnServiceTree.Enabled := False;
+      pnlServiceTreeButton.Enabled := False;
       if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then
         begin
 …
     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);
 …
         cboService.Font.Color := clGrayText;
         btnServiceTree.Enabled := False;
+        pnlServiceTreeButton.Enabled := False;
         Changing := False;
       end;
 …
  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
 …
        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;
 …
           Font.Color := clGrayText;
           btnServiceTree.Enabled := False;
+          pnlServiceTreeButton.Enabled := False;
           Changing := False;
           with Responses do if QuickOrder > 0 then
 …
   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;
 …
                   Result := False;
                   AbortOrder := True;
+                  //cmdQuitClick(Self);
+                end
+               end
               else Result := True;
             end;
 …
 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
 …
   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;
 …
   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;
 …
     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
 …
   //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
 …
      end;
   end;
   ProvDx.CodeInactive := False;
 end;
 …
 end;
+procedure TfrmODCslt.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  frmFrame.pnlVisit.Enabled := true;
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.dfm

-              r459
+              r460
 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
 …
     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
 …
     TabOrder = 15
   end
   object lblPlace: TStaticText [3]
     Left = 384
+  object lblPlace: TStaticText [4]
+    Left = 396
     Top = 43
     Width = 104
 …
     TabOrder = 16
   end
   object lblAttn: TStaticText [4]
     Left = 384
+  object lblAttn: TStaticText [5]
+    Left = 396
     Top = 4
     Width = 46
 …
     TabOrder = 17
   end
   object lblProvDiag: TStaticText [5]
     Left = 237
+  object lblProvDiag: TStaticText [6]
+    Left = 249
     Top = 81
     Width = 104
 …
     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 = (
-)
-    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
 …
       Font.Name = 'Courier New'
       Font.Style = []
+      Constraints.MinHeight = 40
       ParentFont = False
       PopupMenu = popReason
 …
   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...'
 …
     TabOrder = 1
   end
   object cboUrgency: TORComboBox [8]
     Left = 237
+  object cboUrgency: TORComboBox [9]
+    Left = 249
     Top = 17
     Width = 133
 …
     CharsNeedMatch = 1
   end
   object cboPlace: TORComboBox [9]
     Left = 384
+  object cboPlace: TORComboBox [10]
+    Left = 396
     Top = 56
     Width = 133
 …
     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
 …
     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 = (
-)
-    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

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODProc.pas

-              r459
+              r460
     cboUrgency: TORComboBox;
     cboPlace: TORComboBox;
-    txtProvDiag: TCaptionEdit;
     txtAttn: TORComboBox;
     lblProc: TLabel;
 …
     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;
 …
       Shift: TShiftState);
     procedure memReasonKeyPress(Sender: TObject; var Key: Char);
+    procedure FormResize(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FLastProcID: string;
 …
 uses
     rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, ORClasses,
     clipbrd, fPreReq, uTemplates, uAccessibleRichEdit;
+    clipbrd, fPreReq, uTemplates, uAccessibleRichEdit, fFrame, uODBase;
 var
 …
 procedure TfrmODProc.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
 …
   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;
 …
     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
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Consults/fPreReq.dfm

r459	r460
12	12	Font.Name = 'MS Sans Serif'
13	13	Font.Style = []
14		~~FormStyle = fsStayOnTop~~
15	14	OldCreateOrder = True
16	15	Position = poScreenCenter

cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas

-              r459
+              r460
 uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, uConsults, rTIU, uTIU;
+type
+  TUnresolvedConsults = record
+    UnresolvedConsultsExist: boolean;
+    ShowNagScreen: boolean;
+  end;
 {Consult Titles }
 …
 function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings;
 function UnresolvedConsultsExist: boolean;
+procedure GetUnresolvedConsultsInfo;
 {list box fillers}
 …
   uClinProcClass: integer;
   uClinProcTitles: TClinProcTitles;
+  uUnresolvedConsults: TUnresolvedConsults;
 implementation
 …
 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

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.dfm

-              r459
+              r460
 inherited frmDiagnoses: TfrmDiagnoses
   Left = 306
   Top = 183
+  Left = 304
+  Top = 169
   Caption = 'Encounter Diagnoses'
   PixelsPerInch = 96
 …
       inherited lbSection: TORListBox
         Tag = 20
-        Style = lbOwnerDrawFixed
         TabOrder = 0
-        OnDrawItem = lbSectionDrawItem
       end
       inherited btnOther: TButton

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas

-              r459
+              r460
 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

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm

-              r459
+              r460
 inherited frmEncVitals: TfrmEncVitals
   Left = 400
   Top = 227
+  Left = 353
+  Top = 210
   Caption = 'Vitals'
   KeyPreview = True
 …
   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
 …
     Height = 217
     TabOrder = 0
+    Visible = False
     object lblVitPointer: TOROffsetLabel
       Left = 506
 …
       ListItemsOnly = True
       LongList = False
+      LookupPiece = 0
       MaxLength = 0
       Pieces = '1,2'
 …
       TabStop = True
       OnEnter = SetVitPointer
+      CharsNeedMatch = 1
     end
     object txtMeasPulse: TCaptionEdit
 …
     end
   end
+  object btnEnterVitals: TButton
+    Left = 8
+    Top = 377
+    Width = 75
+    Height = 21
+    Caption = 'Enter Vitals'
+    TabOrder = 2
+    OnClick = btnEnterVitalsClick
+  end
 end

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.pas

-              r459
+              r460
   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
 …
     txtMeasPulse: TCaptionEdit;
     txtMeasHt: TCaptionEdit;
+    pnlBottom: TPanel;
+    btnEnterVitals: TButton;
+    lvVitals: TCaptionListView;
     procedure SetVitPointer(Sender: TObject);
     procedure txtMeasBPExit(Sender: TObject);
 …
     procedure FormKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure btnEnterVitalsClick(Sender: TObject); //vitals lite
   private
     FDataLoaded: boolean;
 …
     procedure ChangeFocus(Control: TWinControl);
     procedure ClearData;
+    procedure LoadVitalView(VitalsList : TStringList); //Vitals Lite
+    procedure LoadVitalsList;
   public
     function OK2SaveVitals: boolean;
 …
 uses UCore, rCore, rPCE, fPCELex, fPCEOther, fVitals,fVisit, fFrame, fEncnt,
+  uVitals, fEncounterFrame;
+     fEncounterFrame, uInit
+  //   , fGMV_InputTemp // Vitals Lite 2004-05-21
+     ;
 const
 …
 end;
 procedure TfrmEncVitals.FormCreate(Sender: TObject);
+begin
+begin
   inherited;
   FTabName := CT_VitNm;
 …
 begin
-  inherited;
   //uVisitType.Free;
   uVitalOld.Free;
   uVitalNew.free;
+{== Vitals Lite 2004-05-21 ===================================================}
+  FreeLibrary(VitalsDLLHandle);
+{== Vitals Lite 2004-05-21 ===================================================}
+  inherited;
 end;
 …
 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);
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm

-              r459
+              r460
 object frmEncounterFrame: TfrmEncounterFrame
   Left = 366
   Top = 181
   Width = 612
+  Left = 290
+  Top = 108
+  Width = 640
   Height = 451
   Caption = 'Encounter Frame'
 …
   Position = poScreenCenter
   OnCanResize = FormCanResize
+  OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
 …
     Left = 0
     Top = 0
     Width = 604
+    Width = 632
     Height = 2
     Align = alTop
 …
   object StatusBar1: TStatusBar
     Left = 0
     Top = 424
     Width = 604
+    Top = 417
+    Width = 632
     Height = 0
     Panels = <>
 …
     Left = 0
     Top = 24
     Width = 604
     Height = 400
+    Width = 632
+    Height = 393
     Align = alClient
     BevelOuter = bvNone
 …
     ParentFont = False
     TabOrder = 1
-    TabStop = True
   end
   object TabControl: TTabControl
     Left = 0
     Top = 2
     Width = 604
+    Width = 632
     Height = 22
     Align = alTop

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas

-              r459
+              r460
     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);
 …
   uCore,
   fGAF, uConst,
   rCore, fPCEProvider;
+  rCore, fPCEProvider, rMisc;
 {$R *.DFM}
 …
     frmEncounterFrame.CreateChildForms(frmEncounterFrame, PCEData.Location);
     ResizeAnchoredFormToFont(frmEncounterFrame);
+    SetFormPosition(frmEncounterFrame);
     with frmEncounterFrame do
 …
     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;
 …
 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

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fHealthFactor.dfm

-              r459
+              r460
 inherited frmHealthFactors: TfrmHealthFactors
   Left = 434
   Top = 354
+  Left = 374
+  Top = 205
   Caption = 'Health Factor page'
   PixelsPerInch = 96
 …
   end
   inherited edtComment: TCaptionEdit
+    MaxLength = 245
     TabOrder = 3
   end
 …
     ListItemsOnly = False
     LongList = False
+    LookupPiece = 0
     MaxLength = 0
     Pieces = '2'
 …
     TabOrder = 4
     OnChange = cboHealthLevelChange
+    CharsNeedMatch = 1
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCELex.dfm

-              r459
+              r460
 inherited frmPCELex: TfrmPCELex
   Left = 386
   Top = 204
+  Left = 639
+  Top = 480
   BorderIcons = []
   BorderStyle = bsDialog

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm

r459	r460
71	71	OnChange = cboPrimaryChange
72	72	OnNeedData = cboPrimaryNeedData
	73	CharsNeedMatch = 1
73	74	end
74	75	object btnYes: TButton

cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas

-              r459
+              r460
 function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean;
 function IsCancelOrNoShow(ANote: integer): boolean;
+function IsNonCountClinic(ALocation: integer): boolean;
 // HNC Flag
 …
   uVTypeForLoc:   TStringList;
   uProblems:      TStringList;
   uModifiers:     TORStringList = nil;
   uGAFOK:         boolean;
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas

-              r459
+              r460
   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;
 …
     BOOLCHAR[AddProb] + U + U + U;
   if(SaveComment) then Result := Result + IntToStr(UNxtCommSeqNum);
+  if Length(Result) > 250 then SetPiece(Result, U, 4, '');
 end;
 …
 begin
   if not CanEditPCE(Self) then
+  begin
+    Result := TRUE;
+    exit;
+  end;
+  if IsNonCountClinic(FEncLocation) then
   begin
     Result := TRUE;

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.dfm

-              r459
+              r460
 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
 …
   object pnlBottom: TPanel
     Left = 0
     Top = 333
+    Top = 340
     Width = 427
     Height = 30
 …
     Top = 0
     Width = 427
     Height = 333
+    Height = 340
     Align = alClient
     BevelOuter = bvNone
 …
       Top = 5
       Width = 417
       Height = 323
+      Height = 330
       HelpContext = 9999
       ActivePage = tsListsTeams
 …
         DesignSize = (
 )
+)
         object bvlCoverDays: TBevel
           Left = 125
 …
         DesignSize = (
 )
+)
         object bvlNotesNotes: TBevel
           Left = 88
 …
             00000000000000000000000000000000000000000000000000000000}
         end
         object Image1: TImage
+        object imgNotes: TImage
           Left = 16
           Top = 163
 …
         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
 …
             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
 …
             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
+FF003399FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF00
+FF00FF33FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF00
+FF006600FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC00
+FFCC0000FFCC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00
+            FF99CC00CC99CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC00
+CC006666CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC00
+CC000033CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00
+            FFFF9900CCFF990099FF990066FF990033FF990000FF9900FFCC9900CCCC9900
+CC990066CC990033CC990000CC9900FF999900CC9999009999990066999900
+            3399990000999900FF669900CC66990099669900666699003366990000669900
+            FF339900CC33990099339900663399003333990000339900FF009900CC009900
+            99009900660099003300990000009900FFFF6600CCFF660099FF660066FF6600
+FF660000FF6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600
+            FF996600CC99660099996600669966003399660000996600FF666600CC666600
+            99666600666666003366660000666600FF336600CC3366009933660066336600
+            3333660000336600FF006600CC00660099006600660066003300660000006600
+            FFFF3300CCFF330099FF330066FF330033FF330000FF3300FFCC3300CCCC3300
+CC330066CC330033CC330000CC3300FF993300CC9933009999330066993300
+            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
 …
           TabOrder = 4
         end
         object Label4: TMemo
+        object memReport1: TMemo
           Left = 128
           Top = 184
+          Top = 121
           Width = 273
           Height = 49
 …
           TabOrder = 5
         end
         object Label1: TStaticText
+        object lblReports: TStaticText
           Left = 13
           Top = 16
+          Top = 9
           Width = 55
           Height = 17
 …
           TabOrder = 2
         end
         object Label2: TStaticText
           Left = 13
           Top = 152
+        object lblReport1: TStaticText
+          Left = 9
+          Top = 101
           Width = 89
           Height = 17
 …
           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 = (
+)
+        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
+FFFF7707FFFFCCCCCCFCCC78F000088887878007FFFFFFFFFFFFFF77FFFFF7
+FFFF7707FFFFFFFFFFFFFF78F000088888888007FFFFFFFFFFFFFF77FFFFF7
+            8887878707FFFFFFFFFFFFFF78F0000888FFFF7007FFFFFFFFFFFFFF77FFFFF7
+            8888888707F000000000000078F000088887878007F788878887888777FFFFF7
+F0FF7707F7FFFFFFFFFFFF788888888888888007F7FF9FFFFFFFFF77878787
+            8787878707F7FF9FFFFFFFFF777777777777777007F7FFF9FFFFFFFFF9F9FFFF
+            FFF9700007F7FFF9FFFFFFFF9FF99FFFFF9F000007F7FFFF9FFFFFFF9FFFF9FF
+            F99F700007F7FFFF9FFFFFF9FFFFF99F9FFF000007F7FFFFF9FFFF9FFFFFFFF9
+FFF700007F7FFFFF9FF99FFFFFFFFF9FFFF000007F7FFFFFF999FFFFFFFFFFF
+            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
+FF7000007F08FFFF9FF99FFFFFFFFFFF9F0000007F08FFFFF99FFFFFFFFFFFF
+            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

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptions.pas

-              r459
+              r460
     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);
 …
     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 }
 …
 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;
 …
              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
 …
              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;
 …
   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;
 …
 end;
 procedure TfrmOptions.Button1Click(Sender: TObject);
+procedure TfrmOptions.btnReportsClick(Sender: TObject);
 var
   topsize, leftsize, value: integer;
 …
 end;
 procedure TfrmOptions.Button2Click(Sender: TObject);
+procedure TfrmOptions.btnReport1Click(Sender: TObject);
 var
   topsize, leftsize, value: integer;
 …
   topsize, leftsize, value: integer;
 begin
   if BILLING_AWARE then  {BAV25 Code}
+  if IsCIDCProvider(User.DUZ) then    //(hds7564)
   begin
      value := 0;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.dfm

-              r459
+              r460
   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
 …
   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
 …
   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
 …
   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

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsOther.pas

r459	r460
52	52	FstopDt: TFMDateTime;
53	53	FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer;
54		FDefaultEvent: string;
	54	//FDefaultEvent: string;
55	55	public
56	56	{ Public declarations }

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.dfm

-              r459
+              r460
 object frmOptionsReportsCustom: TfrmOptionsReportsCustom
   Left = 468
   Top = 4
+  Left = 414
+  Top = 329
   BorderIcons = [biSystemMenu, biHelp]
   BorderStyle = bsDialog

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsCustom.pas

-              r459
+              r460
       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;
 …
         begin
           Val(newValue, I, code);
+          if I = 0 then begin end; //added to keep compiler from generating a hint
           if code <> 0 then
              begin

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.dfm

-              r459
+              r460
 object frmOptionsReportsDefault: TfrmOptionsReportsDefault
   Left = 604
   Top = 172
+  Left = 773
+  Top = 334
   BorderIcons = [biSystemMenu, biHelp]
   BorderStyle = bsDialog

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsReportsDefault.pas

r459	r460
200	200	begin
201	201	Val(newValue, I, code);
	202	if I = 0 then begin end; //added to keep compiler from generating a hint
202	203	if code <> 0 then
203	204	begin

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.dfm

r459	r460
208	208	OnClick = cboSubscribeClick
209	209	OnKeyDown = cboSubscribeKeyDown
	210	OnMouseClick = cboSubscribeMouseClick
	211	CharsNeedMatch = 1
210	212	end
211	213	object mnuPopPatient: TPopupMenu

cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsTeams.pas

-              r459
+              r460
     procedure cboSubscribeKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure cboSubscribeMouseClick(Sender: TObject);
   private
     FKeyBoarding: boolean;
 …
 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
 …
   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
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.dfm

-              r459
+              r460
   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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCAccept.pas

-              r459
+              r460
 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;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm

-              r459
+              r460
 inherited frmOCSession: TfrmOCSession
   Left = 220
   Top = 392
+  Left = 365
+  Top = 221
   Width = 504
   Height = 298
 …
   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 = (
+)
+    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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.pas

-              r459
+              r460
 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;
 …
     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;
 …
 {$R *.DFM}
 uses rOrders, uCore;
+uses rOrders, uCore, rMisc;
 type
 …
 var
   uCheckedOrders: TList;
+  FOldHintHidePause: integer;
 constructor TOCRec.Create(const AnID: string);
 …
   OrderID := AnID;
   Checks := TStringList.Create;
+  FOldHintHidePause := Application.HintHidePause;
 end;
 destructor TOCRec.Destroy;
 begin
+  Application.HintHidePause := FOldHintHidePause;
   Checks.Free;
   inherited Destroy;
 …
         frmOCSession.SetReqJustify;
         MessageBeep(MB_ICONASTERISK);
+        if frmOCSession.Visible then frmOCSession.SetFocus;
         frmOCSession.ShowModal;
       finally
 …
   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;
 …
 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;
 …
 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;
 …
   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;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.dfm

-              r459
+              r460
     TabOrder = 3
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object grpObsHist: TRadioGroup
 …
     OnChange = ControlChange
     OnNeedData = cboOriginatorNeedData
+    CharsNeedMatch = 1
   end
   object cboSymptoms: TORComboBox
 …
     OnMouseClick = cboSymptomsMouseClick
     OnNeedData = cboSymptomsNeedData
+    CharsNeedMatch = 1
   end
   object btnCurrent: TButton
 …
     TabOrder = 11
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object btnRemove: TButton

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAllgy.pas

-              r459
+              r460
 procedure TfrmODAllergy.cboSymptomsMouseClick(Sender: TObject);
+var
+  x: string;
 begin
   inherited;
 …
   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;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODAuto.pas

-              r459
+              r460
 uses rODBase, rOrders, fTemplateDialog, uTemplateFields, rTemplates, uConst, uTemplates,
      rConsults;
+     rConsults, uCore, uODBase;
 procedure TfrmODAuto.InitDialog;
 …
   LType: TTemplateLinkType;
   IEN: integer;
+  HasObjects: boolean;
 begin
 …
   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
 …
     else
       CheckBoilerplate4Fields(tmp, cptn);
     if tmp <> '' then
       Responses.Update('COMMENT', 1, TX_WPTYPE, tmp)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.dfm

-              r459
+              r460
   Width = 528
   Height = 275
+  HorzScrollBar.Range = 500
+  HorzScrollBar.Tracking = True
+  HorzScrollBar.Visible = True
+  VertScrollBar.Range = 225
+  VertScrollBar.Visible = True
+  AutoScroll = False
   BorderIcons = [biSystemMenu]
   Caption = ''

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODBase.pas

-              r459
+              r460
     FLogTime:   TFMDateTime;
     FViewName: string;
+    FCancel: boolean;
+    FOrderContainsObjects: boolean;
     function FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse;
     function GetOrderText: string;
 …
     function GetIENForPrompt(const APromptID: string): Integer;
     function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse;
+    function PromptExists(const APromptID: string):boolean;
     function InstanceCount(const APromptID: string): Integer;
     function IValueFor(const APromptID: string; AnInstance: Integer): string;
 …
       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;
 …
     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;
 …
 uses fOCAccept, uODBase, rCore, rMisc, fODMessage,
   fTemplateDialog, uEventHooks, uTemplates, rConsults,fOrders,uOrders,
   fFrame, uTemplateFields;
+  fFrame, uTemplateFields, fClinicWardMeds;
 const
 …
 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
 …
   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;
 …
       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;
 …
   APtEvtPtr: string;
 begin
+  //IMOLoc := 0;
   NewPtEvtPtr := 0;
   QOUDGroup := False;
 …
     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
 …
       APtEvtPtr   := IntToStr(EventExist(Patient.DFN, FEventIFN));
       PTEventPtr  := APtEvtPtr;
+      //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc);
       PutNewOrder(AnOrder, ConstructOrder, OrderSource);
       if not SaveAsCurrent then
 …
     else
     begin
+      //PutNewOrder(AnOrder, ConstructOrder, OrderSource, IMOLoc);
       PutNewOrder(AnOrder, ConstructOrder, OrderSource);
       if not SaveAsCurrent then
 …
   AResponse: TResponse;
   IEN: integer;
+  HasObjects: boolean;
   procedure AssignBPText(List: TStrings; const Value: string);
 …
       else         IEN := 0;
     end;
+    ExpandOrderObjects(tmp, HasObjects);
+    FOrderContainsObjects := FOrderContainsObjects or HasObjects;
     if IEN <> 0 then
       begin
 …
     else
       CheckBoilerplate4Fields(tmp, cptn);
     List.Text := tmp;
   end;
 …
   if (Encounter.Provider = 0) or (PersonHasKey(Encounter.Provider, 'PROVIDER') = False)
     then AnErrMsg := TX_NO_PROVIDER;
+  if IsPFSSActive and Responses.PromptExists('VISITSTR') then
+    Responses.Update('VISITSTR', 1, Encounter.VisitStr, Encounter.VisitStr);
 end;
 …
   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;
 …
   CIDCOkToSave := False;
   alreadyClosed := False;
+  self.Responses.Cancel := False;
   if frmOrders <> nil then
   begin
 …
 begin
   inherited;
+  //self.Responses.Cancel := False;
   if User.NoOrdering then Exit;
   if FAbortOrder then exit;
 …
 end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm

-              r459
+              r460
 inherited frmODDiet: TfrmODDiet
+  Left = 404
+  Top = 199
+  Left = 541
+  Top = 398
+  Width = 532
+  Height = 291
   Caption = 'Diet Order'
   OnKeyDown = FormKeyDown
 …
     Left = 0
     Top = 0
     Width = 520
     Height = 186
+    Width = 524
+    Height = 194
     ActivePage = pgeOutPt
     Align = alTop
 …
         OnMouseClick = cboDietAvailMouseClick
         OnNeedData = cboDietAvailNeedData
+        CharsNeedMatch = 1
       end
       object lstDietSelect: TORListBox
 …
         TabOrder = 6
         OnChange = DietChange
+        CharsNeedMatch = 1
       end
       object chkCancelTubefeeding: TCheckBox
 …
       end
       object lblOPDietAvail: TLabel
         Left = 127
         Top = 0
+        Left = 0
+        Top = 1
         Width = 70
         Height = 13
 …
       object lblOPComment: TLabel
         Left = 4
         Top = 117
+        Top = 128
         Width = 92
         Height = 13
 …
       end
       object lblOPSelect: TLabel
         Left = 127
         Top = 38
+        Left = 0
+        Top = 39
         Width = 64
         Height = 13
 …
       end
       object grpOPMeal: TKeyClickRadioGroup
         Left = 5
         Top = 5
+        Left = 168
+        Top = 11
         Width = 110
         Height = 107
 …
           'Evening'
           '<none selected>')
         TabOrder = 0
+        TabOrder = 3
         TabStop = True
         OnClick = grpOPMealClick
 …
         Top = 5
         Width = 93
         Height = 149
+        Height = 155
         Caption = 'Days of Week'
         TabOrder = 8
 …
       end
       object cboOPDietAvail: TORComboBox
         Left = 127
         Top = 15
+        Left = 0
+        Top = 16
         Width = 157
         Height = 21
 …
         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
 …
         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
 …
         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
 …
         Caption = 'Cancel Tubefeeding'
         State = cbGrayed
         TabOrder = 10
+        TabOrder = 7
         Visible = False
         OnClick = DietChange
+        OnClick = OPChange
       end
     end
 …
         Height = 13
         Caption = 'Amount'
+      end
+      object lblOPTFStart: TLabel
+        Left = 341
+        Top = 90
+        Width = 51
+        Height = 13
+        Caption = 'Start Date:'
       end
       object cboProduct: TORComboBox
 …
         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'
 …
       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
 …
       object cboStrength: TCaptionComboBox
         Tag = -1
         Left = 444
         Top = 108
+        Left = 252
+        Top = 124
         Width = 53
         Height = 21
 …
           '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
 …
         Width = 120
         Height = 21
         TabOrder = 3
+        TabOrder = 4
         OnChange = calELStopChange
         DateOnly = True
 …
         Height = 152
         Caption = 'Days of Week'
         TabOrder = 4
+        TabOrder = 5
         object chkMonday: TCheckBox
           Left = 8
 …
         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
 …
         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
 …
         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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.pas

-              r459
+              r460
     cmdOPRemove: TButton;
     chkOPCancelTubefeeding: TCheckBox;
+    calOPTFStart: TORDateBox;
+    lblOPTFStart: TLabel;
+    lblOPAOStart: TLabel;
+    calOPAOStart: TORDateBox;
+    cboOPAORecurringMeals: TORComboBox;
+    cboOPTFRecurringMeals: TORComboBox;
+    cboOPELRecurringMeals: TORComboBox;
     procedure nbkDietChanging(Sender: TObject;
       var AllowChange: Boolean);
 …
     procedure 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);
 …
     procedure grpOPMealClick(Sender: TObject);
     procedure cmdOPRemoveClick(Sender: TObject);
+    procedure cboOPDietAvailKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     FNextCol: Integer;
 …
     function TFStrengthCode(const x: string): Integer;
    //  Outpatient meal additions
+    function  FMDOW(AnFMDate: TFMDateTime): integer;
+    function  FMDays(AStart, AEnd: TFMDateTime): string;
     function  GetOPDaysOfWeek: string;
     procedure SetEnableOPDOW(AllowUse: Boolean);
+    procedure SetEnableOPDOW(AllowUse: Boolean; OneTimeDay: integer; DaysToCheck: string = '');
     procedure ResetControlsOP;
     procedure SetValuesFromResponsesOP;
 …
     procedure OPDietCheckForNPO;
     procedure OPDietCheckForTF;
+    function PatientHasRecurringMeals(var MealList: TStringList; MealType: string = ''): boolean;
   protected
     procedure InitDialog; override;
 …
   uDialogName: string;
   uFHAUTH: boolean;
+  uRecurringMealList: TStringList;
 implementation
 …
 {$R *.DFM}
 uses uCore, rODBase, rODDiet, rCore, rOrders, fODDietLT, uAccessibleStringGrid;
+uses uCore, rODBase, rODDiet, rCore, rOrders, fODDietLT, uAccessibleStringGrid, DateUtils;
 const
 …
   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;
 …
   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 +
 …
   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.';
 …
                     '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
 …
 begin
   inherited;
+  AbortOrder := False;
+  uRecurringMealList := TStringList.Create;
   if OrderForInpatient then
     begin
 …
   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;
 …
   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);
 …
   TAccessibleStringGrid.UnwrapControl(grdSelected);
   TFClearGrid;
+  uRecurringMealList.Free;
   inherited;
 end;
 …
     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;
 …
 procedure TfrmODDiet.SetupDialog(OrderAction: Integer; const ID: string);
 begin
+  if AbortOrder then exit;
   inherited;
   uDialogName := ExternalName(DialogIEN, 101.41);
 …
        end;
   'T': begin
+         if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then
+         begin
+           Close;
+           Exit;
+         end;
          nbkDiet.ActivePage := pgeTubefeeding;
          nbkDietChange(Self);
 …
        end;
   'E': begin
+         if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then
+         begin
+           Close;
+           Exit;
+         end;
          nbkDiet.ActivePage := pgeEarlyLate;
          nbkDietChange(Self);
 …
        end;
   'A': begin
+         if (not OrderForInpatient) and (not PatientHasRecurringMeals(uRecurringMealList)) then
+         begin
+           Close;
+           Exit;
+         end;
          nbkDiet.ActivePage := pgeAdditional;
          nbkDietChange(Self);
 …
         nbkDietChange(Self);
         if OrderAction <> ORDER_NEW then SetValuesFromResponsesDO;
+        ActiveControl := cboOPDietAvail;
       end;
   end;
 …
     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);
 …
   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
 …
   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;
 …
 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;
 …
   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');
 …
   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
 …
   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('');
 …
   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('');
 …
   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;
 …
        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;
 …
           InfoBox(Piece(ADiet,'^',2), TC_DIET_ERR, MB_OK);
           cboDietAvail.ItemIndex := -1;
+          Changing := False;
           Exit;
         end;
 …
   TFClearGrid;
   chkCancelTrays.Checked := False;
+  calOPTFStart.Text := '';
   txtTFComment.Text := '';
 end;
 …
     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;
 …
     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] := '';
 …
     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;
 …
       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);
 …
     lblNoTimes.Visible := not HasTimes;
   end;
+begin
+  inherited;
+var
+  AMeal: string;
+begin
+  inherited;
+  Changing := True;
   case grpMeal.ItemIndex of
+: SetMealTimes(uDietParams.BTimes);
+: SetMealTimes(uDietParams.NTimes);
+: SetMealTimes(uDietParams.ETimes);
+  else SetMealTimes('');
+  end;
+: begin
+         SetMealTimes(uDietParams.BTimes);
+         AMeal := 'B';
+       end;
+: begin
+         SetMealTimes(uDietParams.NTimes);
+         AMeal := 'N';
+       end;
+: 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;
 …
 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);
 …
       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);
 …
 begin
   txtAOComment.Text := '';
+  calOPAOStart.Text := '';
 end;
 …
   ResetControlsAO;
   Responses.SetControl(txtAOComment, 'COMMENT', 1);
+  //Responses.SetControl(calOPAOStart, 'DATETIME', 1);
+  Responses.SetControl(cboOPAORecurringMeals, 'DATETIME', 1);
   Changing := False;
   AOChange(Self);
 …
   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);
 …
 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
 …
     OPChange(Sender);
   end; {if cboOPDietAvail}
+  OPChange(Sender);
   cboOPDietAvail.ItemIndex := -1;
-  OPChange(Sender);
 end;
 …
 procedure TfrmODDiet.SetValuesFromResponsesOP;
 var
-  //AnInstance: Integer;
   AResponse: TResponse;
   ADiet: string;
 …
   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
 …
         InfoBox(Piece(ADiet,'^',2), TC_OP_DIET_ERR, MB_OK);
         cboOPDietAvail.ItemIndex := -1;
+        Changing := False;
         Exit;
       end;
 …
 begin
   inherited;
+  if Changing then exit;
   if FChangeStop then
     calOPStop.Text := calOPStart.Text
 …
 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;
 …
   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));
 …
     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);
 …
 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;
 …
     // 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);
 …
     // 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);
 …
     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))
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDietLT.pas

-              r459
+              r460
   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
 …
        (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);
 …
     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
 …
       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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODGen.pas

-              r459
+              r460
     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;
 …
         end;
         with TORComboBox(Editor) do
+        begin
           Items.AddStrings(TStrings(TopTSList));
+          LongList := false;
+        end;
       end else
         TORComboBox(Editor).OnNeedData := LookupNeedData;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.dfm

-              r459
+              r460
     OnExit = cboAvailTestExit
     OnNeedData = cboAvailTestNeedData
+    CharsNeedMatch = 1
   end
   object cboFrequency: TORComboBox
 …
     TabOrder = 16
     OnChange = cboFrequencyChange
+    CharsNeedMatch = 1
   end
   object cboCollSamp: TORComboBox
 …
     OnKeyPause = cboCollSampKeyPause
     OnMouseClick = cboCollSampMouseClick
+    CharsNeedMatch = 1
   end
   object cboSpecimen: TORComboBox
 …
     OnKeyPause = cboSpecimenKeyPause
     OnMouseClick = cboSpecimenMouseClick
+    CharsNeedMatch = 1
   end
   object cboUrgency: TORComboBox
 …
     TabOrder = 3
     OnChange = cboUrgencyChange
+    CharsNeedMatch = 1
   end
   object txtAddlComment: TCaptionEdit
 …
     OnChange = cboCollTimeChange
     OnExit = cboCollTimeExit
+    CharsNeedMatch = 1
   end
   object cboCollType: TORComboBox
 …
     TabOrder = 11
     OnChange = cboCollTypeChange
+    CharsNeedMatch = 1
   end
   object dlgLabCollTime: TORDateTimeDlg

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.pas

-              r459
+              r460
 uses rODBase, rODLab, uCore, rCore, fODLabOthCollSamp, fODLabOthSpec, fODLabImmedColl, fLabCollTimes,
  rOrders, uODBase, fRptBox;
+ rOrders, uODBase, fRptBox, fFrame;
 …
   AList: TStringList;
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
 …
       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;
 …
 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
 …
   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;
 …
   inherited;
   if FCmtTypes <> nil then FCmtTypes.Free;
+  frmFrame.pnlVisit.Enabled := true;
 end;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedFA.dfm

r459	r460
5	5	Height = 205
6	6	Caption = 'Formulary Alternatives'
	7	FormStyle = fsStayOnTop
7	8	OnCreate = FormCreate
8	9	PixelsPerInch = 96

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.dfm

-              r459
+              r460
 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
 …
     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]
 …
   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
 …
     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
 …
     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
 …
     Sorted = False
     SynonymChars = '<>'
     TabOrder = 7
+    TabOrder = 6
     OnChange = ControlChange
     CharsNeedMatch = 1
   end
   object grdSelected: TCaptionStringGrid [12]
+  object grdSelected: TCaptionStringGrid [8]
     Left = 214
     Top = 20
 …
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
     ScrollBars = ssVertical
     TabOrder = 3
+    TabOrder = 2
     OnDrawCell = grdSelectedDrawCell
     OnKeyPress = grdSelectedKeyPress
 …
     Caption = 'Selected Solution and Additives'
   end
   object cmdRemove: TButton [13]
+  object cmdRemove: TButton [9]
     Left = 443
     Top = 99
 …
     Height = 18
     Caption = 'Remove'
     TabOrder = 4
+    TabOrder = 3
     OnClick = cmdRemoveClick
   end
   object memComments: TCaptionMemo [14]
+  object memComments: TCaptionMemo [10]
     Left = 214
     Top = 120
 …
       'memComments')
     ScrollBars = ssVertical
     TabOrder = 5
+    TabOrder = 4
     OnChange = ControlChange
     Caption = 'Comments'
   end
   object txtSelected: TCaptionEdit [15]
+  object txtSelected: TCaptionEdit [11]
     Tag = -1
     Left = 416
 …
     Ctl3D = False
     ParentCtl3D = False
     TabOrder = 1
+    TabOrder = 0
     Text = 'meq.'
     Visible = False
 …
     Caption = 'Volume'
   end
   object cboSelected: TCaptionComboBox [16]
+  object cboSelected: TCaptionComboBox [12]
     Tag = -1
     Left = 460
 …
     ItemHeight = 13
     ParentCtl3D = False
     TabOrder = 2
+    TabOrder = 1
     Visible = False
     OnChange = cboSelectedChange
 …
     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
 …
     Height = 21
     BevelOuter = bvNone
     TabOrder = 8
+    TabOrder = 7
     OnEnter = pnlXDurationEnter
     DesignSize = (
 )
     object btnXDuration: TSpeedButton
+    object btnXDuration: TBitBtn
       Left = 69
       Top = 1
 …
       Anchors = [akLeft, akTop, akRight, akBottom]
       Caption = 'days'
+      TabOrder = 1
+      OnClick = btnXDurationClick
       Glyph.Data = {
         AE000000424DAE0000000000000076000000280000000E000000070000000100
 …
       NumGlyphs = 2
       Spacing = 0
-      Transparent = False
-      OnClick = btnXDurationClick
     end
     object txtXDuration: TCaptionEdit
 …
     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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedIV.pas

-              r459
+              r460
 type
   TfrmODMedIV = class(TfrmODBase)
-    tabFluid: TTabControl;
-    cboSolution: TORComboBox;
     lblInfusionRate: TLabel;
     txtRate: TCaptionEdit;
-    lblPriority: TLabel;
-    cboPriority: TORComboBox;
     lblComponent: TLabel;
     lblAmount: TLabel;
 …
     lblComments: TLabel;
     memComments: TCaptionMemo;
-    cboAdditive: TORComboBox;
     txtSelected: TCaptionEdit;
     cboSelected: TCaptionComboBox;
-    Label1: TStaticText;
     popDuration: TPopupMenu;
     popML: TMenuItem;
 …
     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);
 …
     procedure pnlXDurationEnter(Sender: TObject);
     procedure txtXDurationExit(Sender: TObject);
+    procedure txtRateExit(Sender: TObject);
   private
     FInpatient: Boolean;
 …
 {$R *.DFM}
 uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid;
+uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid, fFrame;
 const
 …
   Restriction: string;
 begin
+  frmFrame.pnlVisit.Enabled := false;
   inherited;
   AllowQuickOrder := True;
 …
   with grdSelected do for i := 0 to RowCount - 1 do TIVComponent(Objects[0, i]).Free;
   inherited;
+  frmFrame.pnlVisit.Enabled := True;
 end;
 …
     end;
   end;
+  Application.ProcessMessages;         //CQ: 10157
   ClickOnGridCell;
-  if cboAdditive.Visible then
-    ActiveControl := cboAdditive;
   ControlChange(Sender);
 end;
 …
     Col := 1;
   end;
+  Application.ProcessMessages;         //CQ: 10157
   ClickOnGridCell;
   ControlChange(Sender);
 …
       Show;
       SetFocus;
+      if AControl is TComboBox then                    //CQ: 10157
+        TComboBox(AControl).DroppedDown := True;
     end;
   end;
 …
 procedure TfrmODMedIV.txtXDurationExit(Sender: TObject);
 var
+  Len: Integer;
   Code: double;
+  Digits, Warning: string;
 begin
   inherited;
   if Changing then Exit;
+  //AGP Change 26.15 HIN-1203-42283 Added additional check to make sure the user can only enter the correct duration
+  Len := Length(txtXDuration.Text);
+  if (Len > 0) and (Pos('.', txtXDuration.Text)=0) then
+    begin
+      Warning := '0';
+      Digits := '2';
+      if ((btnXDuration.Caption = 'days') or (btnXDuration.Caption = 'hours') or (btnXDuration.Caption = 'L')) and (Len > 2) then  Warning := '1';
+      if (btnXDuration.Caption = 'ml') and (Len > 4) then  Warning := '1';
+      if Warning = '1' then
+          begin
+             if btnXduration.Caption = 'ml' then Digits := '4';
+             ShowMessage('Invalid Value.' + #13#10 + 'Reason: Duration for ' + btnXDuration.Caption + ' cannot be greater than ' + digits + ' digits.');
+             txtXDuration.Text := '';
+             txtXDuration.SetFocus;
+             Exit;
+          end;
+      end;
   if (Pos('.', txtXDuration.Text)>0) and
      ((btnXduration.Caption = 'days') or (btnXduration.Caption = 'hours')) then
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.dfm

-              r459
+              r460
 inherited frmODMedNVA: TfrmODMedNVA
   Left = 168
   Top = 36
+  Left = 100
+  Top = 167
   Width = 632
   Height = 536
 …
       Height = 133
       Align = alTop
+      BevelInner = bvLowered
+      BevelOuter = bvSpace
       Columns = <
         item
 …
       ColumnClick = False
       HideSelection = False
+      HotTrack = True
       OwnerData = True
       ParentShowHint = False
 …
       ViewStyle = vsReport
       OnChange = lstChange
+      OnClick = ListViewClick
       OnData = lstQuickData
+      OnEditing = ListViewEditing
+      OnEnter = ListViewEnter
+      OnResize = ListViewResize
       Caption = 'Quick Orders'
     end
 …
         OnExit = cboDosageExit
         CharsNeedMatch = 1
-        UniqueAutoComplete = True
       end
       object cboRoute: TORComboBox
 …
         OnExit = cboRouteExit
         CharsNeedMatch = 1
-        UniqueAutoComplete = True
       end
       object cboSchedule: TORComboBox
 …
         OnExit = cboScheduleExit
         CharsNeedMatch = 1
-        UniqueAutoComplete = True
       end
       object chkPRN: TCheckBox
 …
         ParentColor = False
         TabOrder = 5
+        OnClick = chkPRNClick
       end
     end
 …
       object Label1: TLabel
         Left = 5
         Top = 50
+        Top = 47
         Width = 108
         Height = 13
 …
         Height = 13
         Caption = 'Start Date:'
+      end
+      object Image1: TImage
+        Left = 25
+        Top = 17
+        Width = 31
+        Height = 31
       end
       object memComment: TCaptionMemo
 …
       end
       object lbStatements: TORListBox
         Left = 8
         Top = 62
+        Left = 7
+        Top = 59
         Width = 603
         Height = 76
+        Height = 81
         Style = lbOwnerDrawFixed
         Anchors = [akLeft, akTop, akRight]
 …
         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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedNVA.pas

-              r459
+              r460
 unit fODMedNVA;
 interface
+interface
 uses
 …
     Label2: TLabel;
     btnSelect: TButton;
+    Image1: TImage;
+    memDrugMsg: TMemo;
     procedure FormCreate(Sender: TObject);
     procedure btnSelectClick(Sender: TObject);
 …
     procedure cboScheduleClick(Sender: TObject);
     procedure cboRouteExit(Sender: TObject);
+    procedure DispOrderMessage(const AMessage: string);
 …
       Change: TItemChange);
     procedure FormKeyPress(Sender: TObject; var Key: Char);
   private
     {selection}
 …
     FPtInstruct: string;
     FAltChecked: Boolean;
+    FShrinkDrugMsg: boolean;
     FQOQuantity: Double;
     FQODosage: string;
 …
     FDisabledCancelButton: TButton;
     FShrinked: boolean;
+    FQOInitial: boolean;
     FRemoveText : Boolean;
     {selection}
 …
   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 --------------------------------------------------------- }
 …
 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;
 …
   LoadOTCStatements(lbStatements.Items);
   FRemoveText := True;
+  FShrinkDrugMsg := False;
 end;
 …
  // TAccessibleStringGrid.UnwrapControl(grdDoses);
   inherited;
+  frmFrame.pnlVisit.Enabled := true;
 end;
 …
 procedure TfrmODMedNVA.SetupDialog(OrderAction: Integer; const ID: string);
 var
+  //AnInstr: string;
   OrderID: string;
 begin
 …
     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;
 …
 end;
 { Navigate medication selection lists ------------------------------------------------------- }
 …
 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;
 …
     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);
 …
       ShowMedFields;
     end
     else                                                                 // no selection
+    else                                           // no selection
     begin
       MessageBeep(0);
 …
   else ShowMedSelect;                             // show the selection fields
   FNoZERO   := False;
 end;
 …
 begin
   cboDosage.Items.Clear;
+  chkPRN.Checked := False;
+  cboSchedule.ItemIndex := -1;
+  cboSchedule.Text := '';  // leave items intact
+  memComment.Lines.Clear;
   cboDosage.Text := '';
   cboRoute.Items.Clear;
 …
   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
 …
  //   end;
     pnlMessage.TabOrder := cboDosage.TabOrder + 1;
+    OrderMessage(TextOf('Message'));
+ //   DispOrderMessage(TextOf('Message'));
   end;
 end;
 …
         with cboDosage do
           if ItemIndex > -1 then x := Text + TAB + Items[ItemIndex] else x := Text;
         SetControl(cboRoute,  'ROUTE', i);
         with cboRoute do
 …
       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
 …
   NonPRNPart: string;
 begin
   cboSchedule.ItemIndex := -1;
   if Pos('PRN', x) > 0 then
 …
     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;
 …
 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
 …
     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')
 …
                                 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}
 …
   if Length(calStart.Text) > 0 then
      Responses.Update('START', 1, calStart.Text, 'Start Date: ' + calStart.Text);  //cla 7-17-03
   x := ValueOf(FLD_STATEMENTS);
   Responses.Update('STATEMENTS',1, TX_WPTYPE, x);
 …
                      if 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'
 …
   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);
 …
     begin
       Val(TabletNum, ie, code);
+      if ie = 0 then begin end;
       if code <> 0 then
         Exit;
 …
 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);
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.dfm

-              r459
+              r460
+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
 …
     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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedOIFA.pas

-              r459
+              r460
 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;
 …
     procedure cmdNoClick(Sender: TObject);
     procedure lstFormAltClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FSelected: string;
 …
 {$R *.DFM}
 uses ORFn, rODMeds;
+uses ORFn, rODMeds, rMisc;
 procedure CheckFormularyOI(var AnIEN: Integer; var AName: string; ForInpatient: Boolean);
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.dfm

-              r459
+              r460
 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
 …
   DesignSize = (
 )
+)
   PixelsPerInch = 96
   TextHeight = 13
 …
     Top = 34
     Width = 580
     Height = 392
+    Height = 413
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
 …
       Top = 137
       Width = 580
       Height = 255
+      Height = 276
       Align = alClient
       BevelInner = bvLowered
 …
   end
   inherited memOrder: TCaptionMemo
     Top = 427
+    Top = 448
     Width = 502
     Anchors = [akLeft, akRight, akBottom]
 …
   object btnSelect: TButton [3]
     Left = 515
     Top = 427
+    Top = 448
     Width = 72
     Height = 21
 …
   inherited cmdAccept: TButton
     Left = 514
     Top = 427
+    Top = 448
     Anchors = [akRight, akBottom]
     TabOrder = 6
 …
   inherited cmdQuit: TButton
     Left = 514
     Top = 452
+    Top = 473
     Width = 51
     Anchors = [akRight, akBottom]
 …
     Top = 34
     Width = 580
     Height = 392
+    Height = 413
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
 …
       Top = 0
       Width = 580
       Height = 173
+      Height = 184
       Align = alClient
       Constraints.MinHeight = 80
 …
       DesignSize = (
 )
+)
       object lblRoute: TLabel
         Left = 280
 …
       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
 …
         Top = 36
         Width = 580
         Height = 132
+        Height = 143
         Anchors = [akLeft, akTop, akRight, akBottom]
         ColCount = 6
 …
         Top = 36
         Width = 279
         Height = 132
+        Height = 143
         Anchors = [akLeft, akTop, akRight, akBottom]
         Style = orcsSimple
 …
         OnClick = cboDosageClick
         OnExit = cboDosageExit
+        OnKeyUp = cboDosageKeyUp
         CharsNeedMatch = 1
         UniqueAutoComplete = True
 …
         Top = 36
         Width = 113
         Height = 132
+        Height = 143
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
 …
         Top = 36
         Width = 178
         Height = 132
+        Height = 143
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
 …
       OnExit = cboXDosageExit
       OnKeyDown = memMessageKeyDown
+      OnKeyUp = cboXDosageKeyUp
       CharsNeedMatch = 1
       UniqueAutoComplete = True
 …
         Width = 38
         Height = 19
+        Hint = 'A duration must be defined if using "Then" as a sequence.'
         Caption = 'then'
         Glyph.Data = {
 …
         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
 …
         OnChange = cboXScheduleChange
         OnClick = cboXScheduleClick
+        OnEnter = cboXScheduleEnter
         OnExit = cboXScheduleExit
         OnKeyDown = memMessageKeyDown
 …
     object pnlBottom: TPanel
       Left = 0
       Top = 173
+      Top = 184
       Width = 580
       Height = 219
+      Height = 229
       Align = alBottom
       TabOrder = 6
       DesignSize = (
 )
+)
       object lblComment: TLabel
         Left = 4
 …
       end
       object Image1: TImage
         Left = 1
         Top = 183
+        Left = 5
+        Top = 177
         Width = 31
         Height = 31
 …
         Top = 2
         Width = 513
         Height = 44
+        Height = 43
         Anchors = [akLeft, akTop, akRight]
         ScrollBars = ssVertical
 …
         Width = 60
         Height = 21
+        AutoSize = False
         TabOrder = 1
         Text = '0'
         OnChange = txtSupplyChange
+        OnClick = txtSupplyClick
         Caption = 'Days Supply'
       end
 …
         Width = 60
         Height = 21
+        AutoSize = False
         TabOrder = 3
         Text = '0'
         OnChange = txtQuantityChange
+        OnClick = txtQuantityClick
         Caption = 'Quantity'
       end
 …
         Width = 30
         Height = 21
+        AutoSize = False
         TabOrder = 5
         Text = '0'
         OnChange = ControlChange
+        OnClick = txtRefillsClick
         Caption = 'Refills'
       end
 …
         ItemTipColor = clWindow
         ItemTipEnable = True
         ListItemsOnly = False
+        ListItemsOnly = True
         LongList = False
         LookupPiece = 0
 …
         SynonymChars = '<>'
         TabOrder = 10
-        Text = 'ROUTINE'
         OnChange = ControlChange
         CharsNeedMatch = 1
 …
       end
       object lblAdminTime: TStaticText
         Left = 267
         Top = 104
+        Left = 262
+        Top = 120
         Width = 4
         Height = 4
         TabOrder = 16
-        Visible = False
       end
       object stcPI: TStaticText
 …
       object memDrugMsg: TMemo
         Left = 37
         Top = 183
+        Top = 176
         Width = 533
         Height = 34
+        Height = 51
         Anchors = [akLeft, akRight, akBottom]
         Color = clCream

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.pas

-              r459
+              r460
     memDrugMsg: TMemo;
     txtNSS: TLabel;
+    SpeedButton1: TSpeedButton;
     procedure FormCreate(Sender: TObject);
     procedure btnSelectClick(Sender: TObject);
 …
     procedure cboScheduleExit(Sender: TObject);
     procedure cboXScheduleExit(Sender: TObject);
+    procedure cboDosageKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure cboXDosageKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure txtSupplyClick(Sender: TObject);
+    procedure txtQuantityClick(Sender: TObject);
+    procedure txtRefillsClick(Sender: TObject);
+    procedure WMClose(var Msg : TWMClose); message WM_CLOSE;
+    procedure cboXScheduleEnter(Sender: TObject);
     //procedure btnNSSClick(Sender: TObject);
   private
 …
     FOrigiMsgDisp: boolean;
     FNSSOther: boolean;
     FFromClick: boolean;
+    {selection}
     FShowPnlXScheduleOk : boolean;
     FRemoveText : Boolean;
     {selection}
+    FSmplPRNChkd: Boolean;
     procedure ChangeDelayed;
     function FindQuickOrder(const x: string): Integer;
 …
 //    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);
 …
 uses rCore, uCore, ORFn, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA,
   uAccessibleStringGrid, uOrders, fOtherSchedule, StrUtils;
+  uAccessibleStringGrid, uOrders, fOtherSchedule, StrUtils, fFrame;
 const
 …
   COL_DURATION =  4;
   COL_SEQUENCE =  5;
+  COL_CHKXPRN  =  6;
   VAL_DOSAGE   = 10;
   VAL_ROUTE    = 20;
 …
   VAL_DURATION = 40;
   VAL_SEQUENCE = 50;
+  VAL_CHKXPRN  = 60;
   TAB          = #9;
   {field identifiers}
 …
   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';
 …
   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
 …
   {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;
 …
   begin
     txtNss.Visible := True;
+    //cboSchedule.ListItemsOnly := True;
+    //cboXSchedule.ListItemsOnly := True;
   end;
   with grdDoses do
 …
   FAllDrugs.Free;
   TAccessibleStringGrid.UnwrapControl(grdDoses);
+  frmFrame.pnlVisit.Enabled := true;
   inherited;
 end;
 …
   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
 …
              begin
                 SetSchedule(nsSch);
+                {cboSchedule.SelectByID(nsSch);
+                if cboSchedule.ItemIndex < 0 then
+                begin
+                  cboSchedule.Items.Add(nsSch);
+                  cboSchedule.ItemIndex := cboSchedule.Items.IndexOf(nsSch);
+                end;}
              end;
            end;
 …
        end;
     end;  //nss
+    UpdateRelated(FALSE);
+    if ((OrderAction <> Order_COPY) and (OrderAction <> Order_EDIT)) or
+    (XfInToOutNow = true) then UpdateRelated(FALSE); //AGP Change
     Changing := False;
   end;
 …
       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;
 …
     // 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;
 …
     else if (Length(tmpX) = 0) and FInptDlg and ScheduleRequired(txtMed.Tag, ARoute, ADrug)
       then SetError(TX_NO_SCHED);
     if Length(tmpX) > 0 then
     begin
 …
     if (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);
 …
     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
 …
     UniqueText := False;
   FFromSelf := True;
+  {AutoSelection is only based upon uniquely matching characters.
+   Several CQs have been resolved relating to this issue:
+   See CQ:
+- Auto complete does not work correctly if user has quick orders in Medication list
+- PSI-05-016: TAM-0205-31170  Med Error due to pre-populated med screen
+PSI-04-044 Orders: NJH-0804-20315  Physician unable to enter medication order
+  }
   if UniqueText then
   begin
 …
   QOQuantityStr := '';
   btnSelect.SetFocus;                             // let the exit events finish
   if pnlMeds.Visible then                         // display the medication fields
   begin
 …
   lblQtyMsg.Caption := '';
   lblQuantity.Caption := 'Quantity';
+  FSmplPRNChkd := chkPRN.Checked;  //  GE  CQ7585
   chkPRN.Checked := False;
   FLastUnits    := '';
 …
   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
 …
       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
 …
         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);
 …
           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'
 …
   txtMed.SetFocus;
   FDrugID := '';
   ShowOrderMessage( False );
+  //ShowOrderMessage( False );
 end;
 …
 procedure TfrmODMeds.ShowControlsSimple;
 var
   dosagetxt: string;
+//var
+  //dosagetxt: string;
 begin
   //Commented out, no longer using CharsNeedMatch Property
 …
 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;
 …
   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
 …
         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;
 …
 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));
 …
       chkPRN.Checked := True;
   end else
   begin
+  begin  *)
     chkPRN.Checked := False;
     cboSchedule.SelectByID(x);
 …
       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;
 …
   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];
 …
                 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);
 …
 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;
 …
 begin
   inherited;
-//if cboRoute.Text = '' then
-//  cboRoute.ItemIndex := -1;
   with cboRoute do
     if ItemIndex > -1 then
 …
 begin
   inherited;
   if (FInptDlg) and (cboSchedule.Text = 'OTHER') then
+  if  (FInptDlg) and (cboSchedule.Text = 'OTHER') then
   begin
     othSch := CreateOtherScheduel;
 …
     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
 …
       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;
 …
         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;
 …
 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 := '';
 …
   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
 …
                                    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);
 …
   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
 …
     VAL_DURATION : Result := Piece(Cells[COL_DURATION, ARow], TAB, 1);
     VAL_SEQUENCE : Result := Piece(Cells[COL_SEQUENCE, ARow], TAB, 1);
+    VAL_CHKXPRN  : Result := Cells[COL_CHKXPRN, ARow];
     end;
 end;
 …
 procedure TfrmODMeds.ShowEditor(ACol, ARow: Integer; AChar: Char);
 var
   x, NonPRNPart: string;
+  x,tmpText: string;
   procedure PlaceControl(AControl: TWinControl);
 …
 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.
 …
                       //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
 …
   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
 …
                   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));
 …
                       if cboXSchedule.ItemIndex < 0 then cboXSchedule.Text := x;
                     end;
                   end;
+                  end; *)
                   Changing := FALSE;
                   pnlXSequence.Tag := ARow;
 …
                     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}
 …
     then lblQtyMsg.Caption := TX_QTY_PRE + x + TX_QTY_POST
     else lblQtyMsg.Caption := '';
 end;
 …
     cboXRoute.ItemIndex := -1;
     Exit;
   end;
+  end;
   cboXRouteClick(Self);
   cboXRoute.Tag := -1;
 …
 procedure TfrmODMeds.cboXScheduleChange(Sender: TObject);
 var
   othSch, x, PRN: string;
+  othSch, x: string;
   idx : integer;
 begin
 …
       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;
 …
 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;
 …
 var
   I, Code: Integer;
+  OrgValue: string;
 begin
   inherited;
 …
     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;
 …
       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;
 …
 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;
 …
   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;
 …
     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';
 …
     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
 …
       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
 …
                            (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);
 …
 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);
 …
   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
 …
   CurSupply, i, pNum, j: Integer;
   CurQuantity: double;
   LackQtyInfo, SaveChanging: Boolean;
+  LackQtyInfo, SaveChanging, DispFirstDose: Boolean;
 begin
   inherited;
 …
   SaveChanging := Changing;
   Changing := TRUE;
+  DispFirstDose := FALSE;
   // don't allow Exit procedure so Changing gets reset appropriately
   CurUnits    := '';
 …
       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
 …
     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);
 …
 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;
 …
     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;
 …
   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;
 …
 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
 …
       UpdateStartExpires(tempSch);
     end;
     lblAdminTime.Caption := FAdminTimeLbl;
+    //lblAdminTime.Caption := FAdminTimeLbl;
     if txtQuantity.visible then
       cboScheduleClick(Self);
 …
   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;
 …
   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
 …
       cboSchedule.SelectByID('OTHER');
       cboScheduleClick(Self);
+    end;
+    if  (tabDose.TabIndex = TI_COMPLEX) then
+    begin
+      cboXSchedule.SelectByID('OTHER');
+      CBOXScheduleChange(Self);
     end;
   end;
 …
 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.');
 …
 //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
 …
     Result := False;
   end;
 end;}
+end;*)
 function TfrmODMeds.isUniqueQuickOrder(iText: string): Boolean;
 …
 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
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.dfm

-              r459
+              r460
   Constraints.MinHeight = 344
   Constraints.MinWidth = 576
-  OnPaint = FormPaint
   PixelsPerInch = 96
   TextHeight = 13
 …
       SynonymChars = '<>'
       TabOrder = 0
+      OnDropDownClose = cboImTypeChange
+      OnChange = cboImTypeChange
+      OnDropDownClose = cboImTypeDropDownClose
       OnExit = cboImTypeExit
       CharsNeedMatch = 1
 …
       TabOrder = 8
       OnChange = calPreOpChange
+      OnExit = calPreOpExit
       DateOnly = False
       RequireTime = False
 …
       TabOrder = 6
       OnClick = ControlChange
+      OnExit = chkIsolationExit
     end
     object calRequestDate: TORDateBox

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.pas

-              r459
+              r460
     procedure FormCreate(Sender: TObject);
     procedure cboImTypeChange(Sender: TObject);
-    procedure FormPaint(Sender: TObject);
     procedure memReasonExit(Sender: TObject);
     procedure FormResize(Sender: TObject);
 …
     procedure cboProcedureExit(Sender: TObject);
     procedure cboImTypeExit(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure chkIsolationExit(Sender: TObject);
+    procedure calPreOpExit(Sender: TObject);
+    procedure cboImTypeDropDownClose(Sender: TObject);
   private
     FLastRadID: string;
 …
     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;
 …
 {$R *.DFM}
+uses rODBase, rODRad, rOrders, uCore, rCore, fODRadApproval, fODRadConShRes, fLkUpLocation;
+uses rODBase, rODRad, rOrders, uCore, rCore, fODRadApproval, fODRadConShRes, fLkUpLocation, fFrame,
+  uFormMonitor;
 const
 …
 var
   Radiologist, Contract, Research: string ;
   AName: string;
+  AName, IsPregnant: string;
   ALocation, AType: integer;
 { TfrmODBase common methods }
 …
   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;
 …
         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
 …
           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;
 …
 begin
   if not FEditCopy then inherited;
   FPreOpDate := '';
   FLastRadID := '';
 …
       cboProcedure.Items.Add(FRadCommonCombo.Items[i]);
     if FRadCommonCombo.Items.Count>0 then cboProcedure.InsertSeparator;
     calRequestDate.Text := 'TODAY';
     SetControl(cboAvailMod, 'Modifiers');
 …
   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');
 …
   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);
 …
   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];
 …
    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
 …
 procedure TfrmODRad.FormCreate(Sender: TObject);
 begin
+  FFormFirstOpened := TRUE;
+  ImageTypeChanged := false;
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
 …
     radPregnantUnknown.Enabled := False;
   end else SetDefaultPregant;
+  FormMonitorBringToFrontEvent(Self, FormFirstOpened);
 end;
 …
 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;
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.dfm

-              r459
+              r460
 inherited frmODVitals: TfrmODVitals
   Left = 273
   Top = 211
+  Left = 721
+  Top = 363
   Caption = 'Vital Measurement Order'
   PixelsPerInch = 96
 …
     ListItemsOnly = False
     LongList = False
+    LookupPiece = 0
     MaxLength = 0
     Pieces = '2'
 …
     TabOrder = 4
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object cboSchedule: TORComboBox
 …
     ListItemsOnly = False
     LongList = False
+    LookupPiece = 0
     MaxLength = 0
     Pieces = '2'
 …
     TabOrder = 5
     OnChange = ControlChange
+    CharsNeedMatch = 1
   end
   object calStart: TORDateBox

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.pas

-              r459
+              r460
     procedure FormCreate(Sender: TObject);
     procedure ControlChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
 …
 {$R *.DFM}
 uses uConst, ORFn, rODBase;
+uses uConst, ORFn, rODBase, fFrame;
 const
 …
 procedure TfrmODVitals.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   inherited;
   FillerID := 'OR';                     // does 'on Display' order check **KCM**
 …
 end;
+procedure TfrmODVitals.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  frmFrame.pnlVisit.Enabled := true;
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMSet.pas

-              r459
+              r460
     procedure FormCreate(Sender: TObject);
   private
+    DoingNextItem : Boolean;
+    CloseRequested : Boolean;
     FDelayEvent: TOrderDelayEvent;
     FClosing: Boolean;
 …
 var
   SetItem: TSetItem;
+  theOwner: TComponent;
   procedure SkipToNext;
 …
 begin
+  DoingNextItem := true;
   //frmFrame.UpdatePtInfoOnRefresh;
   if FClosing then Exit;
 …
                     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
 …
     end; {case}
   end; {with lstSet}
+  DoingNextItem := false;
 end;
 …
   if Message.WParam = lstSet.ItemIndex then
     if lstSet.ItemIndex < lstSet.Items.Count - 1 then DoNextItem else Close;
+  if CloseRequested then
+    Close;
 end;
 …
     begin
       SendMessage(TWinControl(SetItem.OwnedBy).Handle, UM_DESTROY, SetItem.RefNum, 0);
       Exit;
+      //Exit;
     end;
   end;
 …
   FClosebyDeaCheck := False;
   NoFresh := True;
+  CloseRequested := false;
+  DoingNextItem := false;
 end;
 …
 procedure TfrmOMSet.cmdInteruptClick(Sender: TObject);
 begin
+  Close;
+  if DoingNextItem then
+    CloseRequested := true              //Fix for CQ: 8297
+  else
+    Close;
 end;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMVerify.pas

-              r459
+              r460
 {$R *.DFM}
 uses ORFn, uConst, fFrame, rMisc;
+uses ORFn, uConst, fFrame, rMisc, uODBase;
 procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean);
 …
   tempStrs,prompts: TStringList;
   flag: boolean;
+  HasObjects: boolean;
   function CutoffOutptPrompts(const promptIDs: TStringList; var promptList: TStringList): boolean;
 …
       SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height);
       SetFormPosition(frmOMVerify);
+      ExpandOrderObjects(VerifyText, HasObjects);
       memText.Lines.SetText(PChar(VerifyText));
       ShowModal;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.dfm

r459	r460
87	87	OnExit = cboOnExit
88	88	OnNeedData = cboAlertRecipientNeedData
	89	CharsNeedMatch = 1
89	90	end
90	91	end

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderFlag.pas

r459	r460
57	57	finally
58	58	frmFlagOrder.Release;
	59	AlertRecip := 0;
59	60	end;
60	61	end;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrderSaveQuick.pas

-              r459
+              r460
   DGroupName, QuickName, CRC: string;
   NewIEN, AnIndex, i: Integer;
+  IsClinicOrder: boolean;
 begin
   Result := False;
   CRC := ResponseSet.OrderCRC;
+  IsClinicOrder := False;
   if CRC = EMPTY_CRC then
   begin
 …
     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)
 …
           SaveQuickListForOD(lstQuickList.Items, ResponseSet.DisplayGroup);
       end; {if OKPressed}
+      if IsClinicOrder = True then ResponseSet.DisplayGroup := ClinDisp;
     end; {with frmSaveQuickOrder}
   finally

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm

-              r459
+              r460
 inherited frmOrders: TfrmOrders
   Left = 142
   Top = 63
   Width = 698
+  Left = 451
+  Top = 250
+  Width = 774
   Height = 579
   HelpContext = 4000
 …
   inherited shpPageBottom: TShape
     Top = 528
     Width = 690
+    Width = 766
   end
   inherited sptHorz: TSplitter
     Left = 117
     Height = 528
+    OnMoved = sptHorzMoved
   end
   inherited pnlLeft: TPanel
 …
   inherited pnlRight: TPanel
     Left = 121
     Width = 569
+    Width = 645
     Height = 528
     ParentColor = True
 …
       Left = 0
       Top = 0
       Width = 569
+      Width = 645
       Height = 19
       Align = alTop
 …
       Left = 0
       Top = 19
       Width = 569
+      Width = 645
       Height = 17
       DragReorder = False
 …
           ImageIndex = -1
           MinWidth = 16
           Text = 'Nrs'
+          Text = 'Nurse'
           Width = 40
         end
 …
           ImageIndex = -1
           MinWidth = 16
           Text = 'Clk'
+          Text = 'Clerk'
           Width = 35
         end
 …
           ImageIndex = -1
           MinWidth = 16
           Text = 'Sts'
+          Text = 'Status'
           Width = 50
         end
 …
           Width = 40
         end>
+      OnSectionClick = hdrOrdersSectionClick
       OnSectionResize = hdrOrdersSectionResize
       OnMouseDown = hdrOrdersMouseDown
 …
       Left = 0
       Top = 36
       Width = 569
+      Width = 645
       Height = 492
       Style = lbOwnerDrawVariable
 …
         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 = '-'
 …
       OnClick = mnuActSignClick
     end
+    object mnuOptimizeFields: TMenuItem
+      Caption = 'Adjust Column Size'
+      Visible = False
+      OnClick = mnuOptimizeFieldsClick
+    end
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.pas

-              r459
+              r460
     sptVert: TSplitter;
     mnuViewExpired: TMenuItem;
+    mnuViewInformation: TMenuItem;
+    mnuViewDemo: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewReminders: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
+    mnuViewPostings: TMenuItem;
+    mnuOptimizeFields: TMenuItem;
     procedure mnuChartTabClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
 …
     procedure 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 }
 …
     procedure UseDefaultSort;
     procedure SynchListToOrders;
+//    procedure ActivateDeactiveRenew;
     procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string);
     procedure ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string;
 …
     function MeasureColumnHeight(AnOrder: TOrder; Index: Integer; Column: integer):integer;
     function GetPlainText(AnOrder: TOrder; index: integer):string;
+    function PatientStatusChanged: boolean;
     procedure UMEventOccur(var Message: TMessage); message UM_EVENTOCCUR;
+    function CheckOrderStatus: boolean;
   public
     procedure setSectionWidths; //CQ6170
 …
     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;
 …
      fOMNavA, rCore, fOCSession, fOrdersPrint, fOrdersTS, fEffectDate, fODActive, fODChild,
      fOrdersCopy, fOMVerify, fODAuto, rODBase, uODBase, rMeds,fODValidateAction, fMeds, uInit, fBALocalDiagnoses,
   fODConsult;
+     fODConsult, fClinicWardMeds, fActivateDeactivate;
 {$R *.DFM}
 …
           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('');
 …
           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;
 …
 : result := ChartRev;
 : result := NameOfStatus(Status);
 :
       begin
         result := MixedCase(Anorder.OrderLocName);
         if (Index > 0) and (result = TOrder(lstOrders.Items.Objects[Index - 1]).OrderLocName) then result := '';
       end;
+: 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;
 …
   NextIndex: Integer;
 begin
+  if PatientStatusChanged then exit;
   if BILLING_AWARE then //CQ5114
      fODConsult.displayDXCode := ''; //CQ5114
 …
   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;
 …
   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
 …
 begin
   inherited;
   if not EncounterPresentEDO then Exit;
+  if not EncounterPresentEDO then Exit;
   if NoneSelected(TX_NOSEL) then Exit;
   if not AuthorizedUser then Exit;
 …
   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
 …
   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
 …
   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
 …
   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
 …
   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
 …
     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
 …
        UBACore.CompleteUnsignedBillingInfo(rpcGetUnsignedOrdersBillingData(OrderListSCEI) );
     end;
    {billing Aware}
     ExecuteReleaseOrderChecks(SelectedList);            // call order checking
 …
       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
 …
       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');
 …
     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
 …
   inherited SetFontSize( FontSize );
   RedrawOrderList;
+  mnuOptimizeFieldsClick(self);
+  lstSheets.Repaint;
+  lstWrite.Repaint;
+  btnDelayedOrder.Repaint;
 end;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   //frmFrame.UpdatePtInfoOnRefresh;
 end;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   //frmFrame.UpdatePtInfoOnRefresh;
 end;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   //frmFrame.UpdatePtInfoOnRefresh;
 end;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   //frmFrame.UpdatePtInfoOnRefresh;
 end;
 …
 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;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.dfm

r459	r460
65	65	ParentShowHint = False
66	66	ShowHint = True
	67	Sorted = True
67	68	TabOrder = 0
68	69	Caption = 'Reason for Discontinue (select one)'

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersDC.pas

-              r459
+              r460
 {$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;
 …
   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;
 …
   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
 …
     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
 …
                        end;
         DCT_DELETION:  begin
-                         if BILLING_AWARE then
-                            UBAGlobals.BADeltedOrders.Add(OriginalID);
                          Changes.Remove(CH_ORD, OriginalID);
                          if (AnOrder.ID = '0') or (AnOrder.ID = '')
 …
     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;
 …
 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);

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersOnChart.pas

-              r459
+              r460
 {$R *.DFM}
+uses rCore, rOrders, uConst, fOrdersPrint, uOrders;
+uses rCore, rOrders, uConst, fOrdersPrint, uOrders, fFrame, UCore,
+  fClinicWardMeds;
 const
 …
 var
   frmOnChartOrders: TfrmOnChartOrders;
   i: Integer;
+  i, PrintLoc: Integer;
   SignList: TStringList;
   OrderText: string;
 …
 begin
   Result := False;
+  PrintLoc := 0;
   if SelectedList.Count = 0 then Exit;
   frmOnChartOrders := TfrmOnChartOrders.Create(Application);
 …
         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
 …
           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*

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas

-              r459
+              r460
 {$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
 …
 var
   frmReleaseOrders: TfrmReleaseOrders;
   i: Integer;
+  i, PrintLoc: Integer;
   SignList: TStringList;
   OrderText: string;
 …
 begin
   Result := False;
+  PrintLoc := 0;
   if SelectedList.Count = 0 then Exit;
   frmReleaseOrders := TfrmReleaseOrders.Create(Application);
 …
         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
 …
         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*

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.dfm

-              r459
+              r460
 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
 …
   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 = (
 )
+)
     object cmdCancel: TButton
       Left = 362
       Top = 12
+      Left = 512
+      Top = 1
       Width = 72
       Height = 21
 …
       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
 …
     object cmdChange: TButton
       Left = 8
       Top = 12
+      Top = 1
       Width = 145
       Height = 21
       Caption = 'Change...'
+      Constraints.MinHeight = 21
       Enabled = False
       TabOrder = 2
 …
     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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRenew.pas

-              r459
+              r460
   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);
 …
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
+    procedure hdrOrdersSectionResize(HeaderControl: THeaderControl;
+      Section: THeaderSection);
   private
     OKPressed: Boolean;
 …
   IsInpt: boolean;
   i,j: Integer;
   m: integer; //BAPHII 1.3.2
+  //m: integer; //BAPHII 1.3.2
   PkgInfo:string;
   PlainText,RnErrMsg: string;
 …
          AnOrder.LinkObject := nil;
        end;
     frmRenewOrders.Release;
   end;
 end;
 …
     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;
 …
 end;
+procedure TfrmRenewOrders.hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
+begin
+  inherited;
+  lstOrders.Repaint; //CQ6367
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.dfm

-              r459
+              r460
 object frmSignOrders: TfrmSignOrders
   Left = 379
   Top = 162
+  Left = 400
+  Top = 159
   Width = 585
   Height = 511
 …
   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
 …
     Caption = 'OK'
     Default = True
     TabOrder = 2
+    TabOrder = 1
     OnClick = cmdOKClick
   end
 …
     Cancel = True
     Caption = 'Cancel'
     TabOrder = 3
+    TabOrder = 2
     OnClick = cmdCancelClick
   end
 …
     ShowHint = True
     Style = lbOwnerDrawVariable
     TabOrder = 1
+    TabOrder = 4
     OnClick = clstOrdersClick
     OnDrawItem = clstOrdersDrawItem
 …
     object Diagnosis1: TMenuItem
       Caption = '&Diagnosis...'
-      Enabled = False
       ShortCut = 32836
       OnClick = buOrdersDiagnosisClick

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersSign.pas

-              r459
+              r460
 uses
   Hash, rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, uSignItems, fOrders,
   fPCELex, rPCE, fODConsult, fBALocalDiagnoses;
+  fPCELex, rPCE, fODConsult, fBALocalDiagnoses, fClinicWardMeds, fFrame;
 const
 …
   cProvDUZ: Int64;
   OrderText: string;
+  PrintLoc: Integer;
  // tempOrderID: string;
 …
   Result := False;
   DigSigErr := True;
+  DigStoreErr := False;
+  Obj := Nil;
+  PrintLoc := 0;
   if SelectedList.Count = 0 then Exit;
   if BILLING_AWARE then
 …
           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
 …
               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;
 …
 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.';
 …
 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
 …
   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);
 …
     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;
 …
 {Begin BillingAware}
-  numSelected := 0;
   match := false;
   allBlank := false;
 …
   j: integer; //CQ5054
 begin
+   //if BILLING_AWARE then
+    //begin
        if FOSTFHintWndActive then
        begin
 …
            //end CQ5054
        end;
-    //end  //if BILLING_AWARE
 end;
 …
         end;
   end;
-   x := 0;
-   y := 0;
   try
 …
 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
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.dfm

-              r459
+              r460
 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
 …
     Left = 0
     Top = 82
     Width = 341
+    Width = 369
     Height = 8
     Cursor = crVSplit
 …
     Left = 0
     Top = 0
     Width = 341
+    Width = 369
     Height = 82
     Align = alTop
 …
       Left = 52
       Top = 4
       Width = 285
+      Width = 313
       Height = 74
       Align = alClient
 …
     Left = 0
     Top = 90
     Width = 341
+    Width = 369
     Height = 272
     Align = alClient
 …
       Left = 1
       Top = 1
       Width = 144
+      Width = 176
       Height = 202
       Align = alLeft
 …
       object cbo7: TCheckBox
         Tag = 1
         Left = 45
+        Left = 86
         Top = 21
         Width = 60
 …
       object cbo1: TCheckBox
         Tag = 2
         Left = 44
+        Left = 85
         Top = 48
         Width = 60
 …
       object cbo2: TCheckBox
         Tag = 3
         Left = 44
+        Left = 85
         Top = 75
         Width = 60
 …
       object cbo3: TCheckBox
         Tag = 4
         Left = 44
+        Left = 85
         Top = 102
         Width = 60
 …
       object cbo4: TCheckBox
         Tag = 5
         Left = 44
+        Left = 85
         Top = 129
         Width = 60
 …
       object cbo5: TCheckBox
         Tag = 6
         Left = 44
+        Left = 85
         Top = 156
         Width = 60
 …
       object cbo6: TCheckBox
         Tag = 7
         Left = 44
+        Left = 85
         Top = 183
         Width = 60
 …
         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
 …
       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
 …
       Left = 1
       Top = 203
       Width = 339
+      Width = 367
       Height = 68
       Align = alBottom
       TabOrder = 2
       DesignSize = (
 )
       object Label1: TLabel
 …
       end
       object btn0k1: TButton
         Left = 176
+        Left = 204
         Top = 43
         Width = 75
 …
       end
       object btnCancel: TButton
         Left = 257
+        Left = 285
         Top = 42
         Width = 75
 …
         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

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas

-              r459
+              r460
     memMessage: TMemo;
     Splitter1: TSplitter;
+    btnAdd: TButton;
+    Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnCancelClick(Sender: TObject);
 …
     procedure lstMinuteKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure Button1Click(Sender: TObject);
   private
     FDaySchedule: array [1..7] of string;
 …
     procedure UpdateOnFreeTextInput;
     function CheckDay(ADayStr: string): string;
   public
   end;
 …
    if frmOtherSchedule.ShowModal = mrOK then
    begin
      ASchedule := frmOtherSchedule.FOtherSchedule;
+     ASchedule := UpperCase(frmOtherSchedule.FOtherSchedule);
      Result := True;
    end;
 …
 procedure TfrmOtherSchedule.btn0k1Click(Sender: TObject);
 begin
+  if (cbo1.Checked = false) and (cbo2.Checked = false) and (cbo3.Checked = false) and (cbo4.Checked = false) and (cbo5.Checked = false) and
+    (cbo6.Checked = false) and (cbo7.Checked = false) then
+    begin
+      ShowMessage('A day of week must be selected!');
+      Exit;
+    end;
   if not IsValidSchStr(FOtherSchedule) then
   begin
 …
 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
 …
   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;
 …
   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
 …
 begin
   inherited;
-  i := 0;
   dayStr  := '';
   timeStr := '';
 …
   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);
 …
 begin
   inherited;
   lstMinute.ItemIndex := -1;
+  if lstMinute.ItemIndex = -1 then lstMinute.ItemIndex :=0;
 end;
 …
   FFromCheckBox := True;
   if lstHour.ItemIndex < 0 then Exit;
   btnAddClick(Self);
+  //btnAddClick(Self);
   FFromCheckBox := False;
 end;
 …
     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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/rODAllergy.pas

-              r459
+              r460
   end;
+  TARTClinUser = record
+    IsClinUser: boolean;
+    ReasonFailed: string;
+    AccessChecked: boolean;
+  end;
 function SearchForAllergies(StringToMatch: string): TStrings;
 function SubsetofSymptoms(const StartFrom: string; Direction: Integer): TStrings;
 …
 function RequireOriginatorComments: boolean;
 function EnableErrorComments: boolean;
+function IsARTClinicalUser(var AMessage: string): boolean;
 implementation
 …
   uARTPatchInstalled: TARTPatchInstalled;
   uGMRASiteParams: TGMRASiteParams;
+  uARTClinUser: TARTClinUser;
 function ODForAllergies: TStrings;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/rODBase.pas

-              r459
+              r460
   end;
+  TPFSSActive = record
+    PFSSActive: boolean;
+    PFSSChecked: boolean;
+  end;
 { General Calls }
 function AskAnotherOrder(ADialog: Integer): Boolean;
 …
 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
 …
 procedure SetDefaultCoPayToNewOrder(AnOrderID, CoPayInfo:string);
 procedure ValidateNumericStr(const x, Dom: string; var ErrMsg: string);
+function IsPFSSActive: boolean;
 { Quick Order Calls }
 …
 implementation
 uses TRPCB,uOrders;
+uses TRPCB, uOrders, uODBase;
 var
 …
   uLastQuantityMsg: string;
   uMedRoutes: TStringList;
+  uPFSSActive: TPFSSActive;
 { Common Internal Calls }
 …
         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;
 …
 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;
 …
     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;
 …
 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 }

cprs/branches/foia-cprs/CPRS-Chart/Orders/rODDiet.pas

-              r459
+              r460
     Alarms: string;
     OPMaxDays: integer;
+    OPDefaultDiet: integer;
   end;
 …
 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;
 …
 function OutpatientPatchInstalled: boolean;
 function UserHasFHAUTHKey: boolean;
+procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = '');
+function OutpatientLocationConfigured(ALocation: string): boolean;
 …
     else
       OPMaxDays := 30;
+    if Results.Count > 4 then
+      OPDefaultDiet := StrToIntDef(Results[4], 0)
   end;
 end;
 …
 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;
 …
     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;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Orders/rODLab.pas

-              r459
+              r460
 procedure GetLabTimesForDate(Dest: TStrings; LabDate: TFMDateTime; Location: integer);
 function  GetLastCollectionTime: string;
+procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer);
+procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList);
+procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList);
+function  StatAllowed(PatientID: string): boolean;
+procedure GetBloodComponents(Dest: TStrings);
 implementation
 …
 uses  rODBase;
 (*    fODBase, rODBase, fODLab;*)
+procedure GetBloodComponents(Dest: TStrings);
+begin
+  tCallV(Dest, 'ORWDXVB COMPORD', []);
+end;
+function  StatAllowed(PatientID: string): boolean;
+begin
+  Result := (StrToInt(sCallV('ORWDXVB STATALOW',[PatientID])) > 0);
+end;
+procedure GetPatientBloodResultsRaw(Dest: TStrings; PatientID: string; ATests: TStringList);
+begin
+  tCallV(Dest, 'ORWDXVB RAW', [PatientID, ATests]);
+end;
+procedure GetPatientBloodResults(Dest: TStrings; PatientID: string; ATests: TStringList);
+begin
+  tCallV(Dest, 'ORWDXVB RESULTS', [PatientID, ATests]);
+end;
+procedure GetPatientBBInfo(Dest: TStrings; PatientID: string; Loc: integer);
+begin
+  tCallV(Dest, 'ORWDXVB GETALL', [PatientID, Loc]);
+end;
 function ODForLab(Location, Division: integer): TStrings;

cprs/branches/foia-cprs/CPRS-Chart/Orders/rOrders.pas

-              r459
+              r460
     ParentID    : string;
     LinkObject:   TObject;
+    EnteredInError:     Integer; //AGP Changes 26.12 PSI-04-053
     procedure Assign(Source: TOrder);
     procedure Clear;
 …
     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;
 …
   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
 …
 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;
 …
   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
 …
     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);
 …
   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;
 …
   SetOrderFromResults(AnOrder);
   AnOrder.ParentID := AParentID;
 end;

cprs/branches/foia-cprs/CPRS-Chart/Orders/uODBase.pas

-              r459
+              r460
 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
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Orders/uOrders.pas

-              r459
+              r460
 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);
 …
 MedsDisp : Integer;
 ClinDisp : Integer; //IMO
+NurDisp  : Integer;
 IVDisp   : Integer;
 CsltDisp : Integer;
 ProcDisp : Integer;
+ImgDisp  : Integer;
 NonVADisp: Integer;
 MedsInDlgIen  : Integer;
 …
 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
 …
   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';
 …
   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';
 …
   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;
 …
       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;
 …
   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');
 …
     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
 …
      end;
    end;
    //jd imo change end
+   //jd imo change end  *}
    if (ResolvedDialog.DisplayGroup = InptDisp) or
       (ResolvedDialog.DisplayGroup = OutptDisp) or
 …
     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
 …
                        begin
                        ShowModal;
-                       //Application.ProcessMessages;
                        Result := uOrderDialog.AcceptOK;
                        uOrderDialog.Destroy;
 …
                        begin
                        Show;
-                       //Application.ProcessMessages;
                        Result := True;
                        end;
 …
   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;
 …
   RetrieveOrderFields(OrdList, 0, 0);
   Result := TOrder(OrdList.Items[0]).Text;
+  if Assigned(OrdList) then OrdList.Free; //CQ:7554
 end;
 …
         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;
 …
 var
   i: Integer;
   xx,xy: string;
+  xx: string;
   IsIMOOD,ForIVAlso: boolean;
 begin
 …
       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;
 …
 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 ';
 …
   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);
 …
         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)));
 …
       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));
 …
   OriginalMedsInHeight    := 0;
   OriginalNonVAMedsHeight := 0;
 end.

cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.dfm

-              r459
+              r460
     Top = 0
     Width = 632
     Height = 383
+    Height = 375
     VertScrollBar.Tracking = True
     Align = alClient
 …
     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 = (
-)
     object lblFootnote: TStaticText
       Left = 196
       Top = 9
+      Top = 7
       Width = 134
       Height = 17
 …
     object btnCancel: TButton
       Left = 551
       Top = 5
+      Top = 3
       Width = 75
       Height = 21
-      Anchors = [akTop, akRight]
       Cancel = True
       Caption = 'Cancel'
 …
     object btnOK: TButton
       Left = 472
       Top = 5
+      Top = 3
       Width = 75
       Height = 21
-      Anchors = [akTop, akRight]
       Caption = 'OK'
       ModalResult = 1
 …
     object btnAll: TButton
       Left = 6
       Top = 5
+      Top = 3
       Width = 75
       Height = 21
 …
     object btnNone: TButton
       Left = 86
       Top = 5
+      Top = 3
       Width = 75
       Height = 21
 …
     object btnPreview: TButton
       Left = 360
       Top = 5
+      Top = 3
       Width = 75
       Height = 21

cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

-              r459
+              r460
   TfrmTemplateDialog = class(TForm)
     sbMain: TScrollBox;
     pnlBottom: TPanel;
+    pnlBottom: TScrollBox;
     btnCancel: TButton;
     btnOK: TButton;
 …
     FCheck4Required: boolean;
     FSilent: boolean;
+    procedure SizeFormToCancelBtn();
     procedure ChkAll(Chk: boolean);
     procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean);
 …
 implementation
 uses dShared, uConst, uTemplateFields, fRptBox, uInit;
+uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc;
 {$R *.DFM}
 …
 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;
 …
   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;
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/Templates/uTemplateFields.pas

r459	r460
918	918	edt.Text := s;
919	919	end;
920		edt.SelStart := edt.GetTextLen;
	920	edt.SelStart := edt.GetTextLen;
921	921	end;
922	922

cprs/branches/foia-cprs/CPRS-Chart/VERGENCECONTEXTORLib_TLB.pas

-              r459
+              r460
 // ************************************************************************ //
+// 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:
 …
 // 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;
 // *********************************************************************//
 …
     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;
 …
     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;
 …
   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;
 …
   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;
 …
   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;
 …
   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;
 …
   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;
 …
     property Name: WideString dispid 5;
     property Value: WideString dispid 6;
     function Clone: IContextItem; dispid 7;
+    function  Clone: IContextItem; dispid 7;
   end;
 …
     ['{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;
 …
     ['{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;
 …
   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;
 …
   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;
 …
     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}
 …
     procedure CreateControl;
     procedure InitControlData; override;
     function Get_CurrentContext: IContextItemCollection;
+    function  Get_CurrentContext: IContextItemCollection;
   public
     procedure Run(const applicationLabel: WideString; const passcode: WideString; survey: WordBool;
 …
     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;
 …
   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
 …
   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
 …
   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
 …
   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
 …
   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
+: if Assigned(FOnPending) then
+            FOnPending(Self, Params[0] {const IDispatch});
+: if Assigned(FOnCommitted) then
+            FOnCommitted(Self);
+: 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;
 …
 end;
 function TContextorControl.Get_CurrentContext: IContextItemCollection;
 begin
     Result := DefaultInterface.CurrentContext;
+function  TContextorControl.Get_CurrentContext: IContextItemCollection;
+begin
+  Result := DefaultInterface.Get_CurrentContext;
 end;
 …
 end;
 function TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege;
+function  TContextorControl.GetPrivilege(const subj: WideString): AccessPrivilege;
 begin
   Result := DefaultInterface.GetPrivilege(subj);
 …
 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);
 …
 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
 …
 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
 …
 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
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/Vitals/uVitals.pas

-              r459
+              r460
 uses
+  SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms;
+  SysUtils, Dialogs, Controls, Windows, Classes, ORClasses, ORCtrls, ORFn, Forms
+  , TRPCB
+  ;
 const
 …
 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
 …
   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
 …
 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;
 …
 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;
 …
       try
         frmVitalsDate.dteVitals.FMDateTime := ADate;
+        frmVitalsDate.btnNow.Visible := Show; //AGP Change 26.1
         if frmVitalsDate.ShowModal = mrOK then
           ADate := frmVitalsDate.dteVitals.FMDateTime;
 …
   end;
 end;
 function IsNumericWeight(const x: string): Boolean;
 var

cprs/branches/foia-cprs/CPRS-Chart/dShared.dfm

-              r459
+              r460
     Bitmap = {
 C01011E002200040010001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
+      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
+C007C007C00000000000000000000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104218631863186318631863
+      18631863186318631863186318630000FF7FFF7F104218631863007C007C007C
+C007C007C007C007C186318630000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F18630000FF7FFF7F10421863007C007CFF7FFF7F
+      FF7FFF7FFF7FFF7F007C007C18630000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7F18630040FF7F
+      FF7FFF7F1863FF7FFF7FFF7F18630000FF7FFF7F1042007C007C007C007CFF7F
+      FF7FFF7F1863FF7FFF7F007C007C0000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7F0040007C0040
+      FF7FFF7F1F001F001863FF7F18630000FF7FFF7F1042007C007CFF7F007C007C
+      FF7FFF7F1F001F001863007C007C0000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7F007CE07F0040
+      FF7FFF7FFF031F001F00FF7F18630000FF7FFF7F007C007CFF7F007CFF7F007C
+CFF7FFF031F001F00FF7F007C007CFF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7FFF7F007C0040
+      FF7FFF7F1F00FF7FFF7FFF7F18630000FF7FFF7F007C007CFF7FFF7F007CFF7F
+C007CFF7FFF7FFF7FFF7F007C007CFF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F10421863FF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F18630000FF7FFF7F007C007CFF7FFF7FFF7FFF7F
+      FF7F007C007CFF7FFF7FFF7F007C007CFF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104218631863186318631863
+      18631863186318631863186318630000FF7FFF7F1042007C007C186318631863
+FF7F007C007C1863007C007C0000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104218631000100010001000
+      10001000000000000000000018630000FF7FFF7F1042007C007C100010001000
+      10001000FF7F007C007C007C007C0000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104218631000100010001000
+      10001000FF7F0000FF7F000018630000FF7FFF7F10421863007C007C10001000
+      10001000FF7FFF7F007C007C18630000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104218631863186318631863
+      18631863186318631863186318630000FF7FFF7F104218631863007C007C007C
+C007C007C007C007C186318630000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F104210421042104210421042
+      10421042104210421042104210420000FF7FFF7F10421042104210421042007C
+C007C007C10421042104210420000FF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7F0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F104210421863FF7F10421042
+      00000042E07FE07FE07FE07FE07F00420000FF7F104210421863FF7F10421042
+E07FE07FE07FE07FE07FE07FE07F00000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7FFF7F1042104210421863
+      000018631863186318631863186318630000FF7FFF7FFF7F1042104210421863
+      0000186318631863186318631863186300000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000000000000000000000000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F000000000000FF7FFF7F1042104218631863FF7F
+      000018631042000018631863000018630000FF7FFF7F1042104218631863FF7F
+      0000186310420000186318630000186300000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000104210421042104200000000E07FFF7F0000000000000000
+      000000000000000000000000000010420000FF7FFF7F10421863186310421863
+      000018630000000000001863186318630000FF7FFF7F10421863186310421863
+      0000186300000000000018631863186300000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000104210421042104200000000FF7FE07F0000104210421042
+      104210421042104210421042104210420000FF7F1042FF7F1863FF7F18631042
+      000018631863186300001863000018630000FF7F1042FF7F1863FF7F18631042
+      0000186318631863000018630000186300000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000104200000000104200000000E07FFF7F0000104210420000
+      104210420000104200000000000010420000FF7F1042FF7F1042186318631863
+      000018631863186318631863186318630000FF7F1042FF7F1042186318631863
+      0000186318631863186318631863186300000000000000000000000000000000
+      0000000000001042104210421042104200000000FF7FE07F0000104200000000
+      000010421042104210421042104210420000FF7F10421863FF7F18631863FF7F
+      000010001F001F001F001F001F0010000000FF7F10421863FF7F18631863FF7F
+F001F001F001F001F001F001F000000FF7F0000FF7F0000104210421042
+      104210421042104200000000104210420000FF7F0000FF7F0000104210421042
+      000010420000000000000000104210420000FF7FFF7F1042FF7FFF7F10421863
+      18630000000000000000000000000000FF7FFF7FFF7F1042FF7FFF7F10421863
+      000000000000000000000000000000000000FF7F104200000000104210421042
+      104210421042104210421042104210420000FF7F104200000000104210421042
+      104210421042104210421042104210420000FF7FFF7F10421042FF7FFF7F1863
+      104218631863186310421042FF7FFF7FFF7FFF7FFF7F10421042FF7FFF7F1863
+      104218631863186310421042FF7FFF7FFF7FFF7FFF7FFF7F0000104210420000
+      104210420000000010420000000010420000FF7FFF7FFF7F0000104210420000
+      10421042000000001042000000001042000010421042104210421042FF7FFF7F
+      FF7FFF7FFF7F10421042104210421042FF7F10421042104210421042FF7FFF7F
+      FF7FFF7FFF7F10421042104210421042FF7FFF7FFF7FFF7F0000104200000000
+      000010421042104210421042104210420000FF7FFF7FFF7F0000104200000000
+      0000104210421042104210421042104200001042FF7F18631863104210421042
+      10421042104210421863186318631042FF7F1042FF7F18631863104210421042
+      10421042104210421863186318631042FF7FFF7FFF7FFF7F0000104210421042
+      000010420000104200000000000010420000FF7FFF7FFF7F0000104210421042
+      00001042000010420000000000001042000010421863FF7F1863186318631042
+      104210421863FF7F1863186318631042FF7F10421863FF7F1863186318631042
+      104210421863FF7F1863186318631042FF7FFF7FFF7FFF7F0000104210421042
+      104210421042104210421042104210420000FF7FFF7FFF7F0000104210421042
+      104210421042104210421042104210420000FF7F10421863FF7FFF7F1042FF7F
+FF7F10421863FF7FFF7F1042FF7FFF7FFF7F10421863FF7FFF7F1042FF7F
+FF7F10421863FF7FFF7F1042FF7FFF7FFF7FFF7FFF7F0000100010001000
+      100010001000100010001000100010000000FF7FFF7FFF7F0000100010001000
+      100010001000100010001000100010000000FF7FFF7F104210421042FF7FFF7F
+FF7FFF7F104210421042FF7FFF7FFF7FFF7FFF7F104210421042FF7FFF7F
+FF7FFF7F104210421042FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F1042
+      10421042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042
+      10421042FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F00000000000000000000FF7F0000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F00000000FF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000000000000000000000000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000000000000000FF7FE07FFF7FE07FFF7FE07F
+      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
+F001F001F001F001F001F001F001F000000FF7FFF7FFF7F00001F001F001F00
+F001F001F001F001F001F001F001F000000FF7FFF7FFF7FFF7F000000000000
+      00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000
+      00000000000000000000000000000000FF7FFF7FFF7FFF7F0000000000000000
+      000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7F0000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F00000000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F00000000000000000000FF7F0000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F00000000FF7FFF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F000000000000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000186318631863104200000000E07FFF7F0000000000000000
+      000000000000000000000000000010420000FF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F00000000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186318631863
+      186318631863186318631863186318630000FF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7F0000E07F1863E07F
+E07F1863E07F1863E07F0000FF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000186300000000186300000000E07FFF7F0000186310420000
+      186318630000186300000000000018630000FF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7F0000E07F1863
+      E07F1863E07F1863E07F1863E07F0000FF7F0000000000000000000000000000
+      0000000000001863186318631863186300000000FF7FE07F0000186300000000
+      000018631863186318631863186318630000FF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7F00000000
+      000000000000000000000000000000000000FF7F0000FF7F0000186318631863
+      186318631863186300000000186318630000FF7F0000FF7F0000186318631863
+      000018630000000000000000186318630000FF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F104200000000186318631863
+      186318631863186318631863186318630000FF7F104200000000186318631863
+      186318631863186318631863186318630000FF7FFF7F00000000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7F
+      E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186310420000
+      186318630000000018630000000018630000FF7FFF7FFF7F0000186310420000
+      186318630000000018630000000018630000FF7FFF7FFF7F0000FF7FE07FFF7F
+      E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07F
+      00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000
+      000018631863186318631863186318630000FF7FFF7FFF7F0000186300000000
+      000018631863186318631863186318630000FF7FFF7FFF7F0000000000000000
+      00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186318631863
+      000018630000186300000000000018630000FF7FFF7FFF7F0000186318631863
+      000018630000186300000000000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000
+FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186318631863
+      186318631863186318631863186318630000FF7FFF7FFF7F0000186318631863
+      186318631863186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000010001F001F00
+F001F001F001F001F001F001F0010000000FF7FFF7FFF7F000010001F001F00
+F001F001F001F001F001F001F0010000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000
+      00000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000
+      00000000000000000000000000000000FF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F000000000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F00001863186300000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000FF7F0000FF7FFF7FFF7F0000186300000000
+      000000001863186318630000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000186318631863186300000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000186300000000E07FFF7F0000000000000000
+      0000000000000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000000000000000
+      0000000000000000000000000000186300000000FF7FE07F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000000000000000018630000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186300001863
+      0000186318631863186318631863186300000000E07FFF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000186300001863
+      0000186300000000000000000000186300000000FF7FE07F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000000000000000018630000FF7FFF7FFF7F0000000000000000000000000000
+      0000000000001863186318631863186300000000FF7FE07F0000186300001863
+      000018631863186318631863186318630000FF7F0000FF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7F0000FF7F0000186300001863
+      000018630000000000000000000018630000FF7F0000FF7F0000186300001863
+      000018630000000000000000000018630000FF7F104200000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000018630000000018630000FF7FFF7FFF7FFF7F104200000000186300001863
+      000018631863186318631863186318630000FF7F104200000000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F
+FF7F00000000FF7F00000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863
+      000018630000000018630000000018630000FF7FFF7FFF7F0000186300001863
+      000018630000000018630000000018630000FF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      186300000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F0000FF7F
+      000000000000000000000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863
+      000000000000000000000000000000000000FF7FFF7FFF7F0000186300001863
+      000000000000000000000000000000000000FF7FFF7FFF7F0000FF7F00000000
+      0000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000
+      0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000186300000000
+      0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000186318630000FF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000186318631863186300000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F000018630000FF7FFF7FFF7F0000FF7F00000000
+      00000000FF7FFF7FFF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000000000000000
+      000000000000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000186318631863186300000000FF7FE07F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000
+      0000000000000000FF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000186300000000E07FFF7F0000186300001863
+      000018630000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000FF7F00000000000000000000000000000000
+      0000000000001863186318631863186300000000FF7FE07F0000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000
+      0000000000000000FF7F0000FF7FFF7FFF7F0000000000000000000000000000
+      000000000000FF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F0000186300001863
+      000018630000000000000000000018630000FF7F0000FF7F0000186300001863
+      000018630000000000000000000018630000FF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7F104200000000186300001863
+      000018631863186318631863186318630000FF7F104200000000186300001863
+      000018631863186318631863186318630000FF7FFF7FFF7F0000FF7F00000000
+FF7F00000000FF7F0000FF7FFF7FFF7FFF7F104200000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863
+      000018630000000018630000000000000000FF7FFF7FFF7F0000186300001863
+      000018630000000018630000000000000000FF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7F00000000FF7F00000000FF7F0000FF7FFF7FFF7F0000186300001863
+      00001863186318631863000018630000FF7FFF7FFF7FFF7F0000186300001863
+      00001863186318631863000018630000FF7FFF7FFF7FFF7F0000FF7F00000000
+      FF7F000000000000FF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863
+      0000186318631863186300000000FF7FFF7FFF7FFF7FFF7F0000186300001863
+      0000186318631863186300000000FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300001863
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000186300001863
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+      000000000000000000000000000000000000FF7FFF7FFF7F0000186300000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000186300000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+      0000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000E07F1863E07F1863E07F
+E07F1863E07F00000000000000000000FF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+      00000000FF7FFF7FFF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000FF7F0000FF7FFF7FFF7F0000186300000000
+      000000001863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7F0000000000000000
+      0000000000000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+      0000000000000000FF7F0000FF7FFF7FFF7F0000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07F0000FF7FFF7FFF7FFF7F00000000FF7FE07F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000000000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7F0000000000000000FF7F00000000E07FFF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+      0000000000000000FF7F0000FF7FFF7FFF7F0000000000000000000000000000
+      000000000000FF7FFF7FFF7FFF7FFF7F00000000FF7FE07F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000000000000000018630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7F0000FF7F0000FF7F0000FF7F
+FF7F00000000000000000000FF7F0000FF7FFF7FFF7F0000186318631863
+      186318631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+FF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F104200000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F104200000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F0000186300000000
+      000018631863186318630000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7F0000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7F00000000FF7F0000000000000000FF7FFF7FFF7F0000FF7F0000FF7F
+FF7F00000000FF7F0000000000000000FF7FFF7FFF7F0000186318631863
+      186318630000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7F00000000
+      FF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7F0000FF7F0000FF7FFF7FFF7FFF7F0000186300000000
+      18631863000018630000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000186318631863
+      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
+E07F000000420000F75E0000FF7FFF7FFF7FFF7FFF7F0000E07F00000000
+E07F000000420000F75E0000FF7FFF7FFF7FFF7FFF7F0000000000000000
+      000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F
+      E07FE07F00000042004200000000FF7FFF7FFF7F000000000000000000000000
+E07F00000042004200000000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F
+      E07FE07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F
+      000000000000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F00000000E07FF75EE07FF75E
+      E07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000
+      000000000000004200420000FF7FFF7FFF7FFF7F0000E07F000000000000E07F
+F75E0000004200420000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7F0000E07FF75EE07F
+      F75EE07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F
+      E07FE07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F
+F75E0000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7F0000E07FF75E
+      E07FF75EE07FF75EE07FF75EE07F0000FF7FFF7FFF7FFF7F0000E07F00000000
+E07F0000004200420000FF7FFF7FFF7FFF7F0000E07FE07FE07FE07FE07F
+      000000000000004200420000FF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7F0000FF7FE07FFF7F00000000
+      00000000000000000000000000000000FF7FFF7FFF7FFF7F0000E07FE07FE07F
+      E07FE07F0000004200420000FF7FFF7FFF7FFF7F000000000000000000000000
+EF3D0000004200420000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F
+      E07FE07F0000004200420000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
+      EF3DEF3D0000004200420000FF7FFF7FFF7FFF7FFF7F00000000000000000000
+      00000000000000000000FF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07FFF7F
+      E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000
+      000000000000000000420000FF7FFF7FFF7FFF7FFF7F00000000000000000000
+      000000000000000000420000FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7F
+      E07F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7FE07F
+      FF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D000000000000FF7FFF7FFF7FFF7FFF7F0000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D000000000000FF7FFF7FFF7FFF7FFF7FFF7FEF3D000000000000
+EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000E07F0042
+      E07F0042E07F004200000000FF7FFF7FFF7FFF7FFF7FFF7F000000000042E07F
+E07F0042E07F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3D0000000000000000
+      EF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
+E07F0042E07F004200000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
+      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
+FFFFFF00C6C6C60000000000FFFFFF00FFFFFF000000FF000000FF00FFFF
+      FF000000FF00FFFFFF000000FF000000FF00FFFFFF00FFFF0000FF000000FF00
+FFFFFF000000FF000000FF00FFFFFF000000000000000000000000000000
+      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
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484840084848400C6C6
+      C600FFFFFF008484840084848400000000000084840000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF000084840000000000FFFFFF008484840084848400C6C6
+      C600FFFFFF0084848400848484000000000000FFFF0000FFFF0000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008484
+      84008484840084848400C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF008484
+      84008484840084848400C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      00000000000000000000000000000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF00000000000000000000000000FFFFFF00FFFFFF00848484008484
+C6C6C600C6C6C600FFFFFF0000000000C6C6C6008484840000000000C6C6
+      C600C6C6C60000000000C6C6C60000000000FFFFFF00FFFFFF00848484008484
+C6C6C600C6C6C600FFFFFF0000000000C6C6C6008484840000000000C6C6
+      C600C6C6C60000000000C6C6C6000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484
+      8400848484008484840084848400000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000008484840000000000FFFFFF00FFFFFF0084848400C6C6
+      C600C6C6C60084848400C6C6C60000000000C6C6C60000000000000000000000
+C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF0084848400C6C6
+      C600C6C6C60084848400C6C6C60000000000C6C6C60000000000000000000000
+C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000008484
+      84008484840084848400848484000000000000000000FFFFFF0000FFFF000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF0084848400FFFFFF00C6C6
+      C600FFFFFF00C6C6C6008484840000000000C6C6C600C6C6C600C6C6C6000000
+C6C6C60000000000C6C6C60000000000FFFFFF0084848400FFFFFF00C6C6
+      C600FFFFFF00C6C6C6008484840000000000C6C6C600C6C6C600C6C6C6000000
+C6C6C60000000000C6C6C6000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484
+      8400000000000000000084848400000000000000000000FFFF00FFFFFF000000
+      0000848484008484840000000000848484008484840000000000848484000000
+      000000000000000000008484840000000000FFFFFF0084848400FFFFFF008484
+C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400FFFFFF008484
+C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+      84008484840084848400848484000000000000000000FFFFFF0000FFFF000000
+      0000848484000000000000000000000000008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF0084848400C6C6C600FFFF
+      FF00C6C6C600C6C6C600FFFFFF000000000084000000FF000000FF000000FF00
+FF000000FF0000008400000000000000FFFFFF0084848400C6C6C600FFFF
+      FF00C6C6C600C6C6C600FFFFFF0000000000FF000000FF000000FF000000FF00
+FF000000FF000000FF00000000000000FFFFFF0000000000FFFFFF000000
+      0000848484008484840084848400848484008484840084848400848484000000
+      000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000
+      0000848484008484840084848400000000008484840000000000000000000000
+      000000000000848484008484840000000000FFFFFF00FFFFFF0084848400FFFF
+      FF00FFFFFF0084848400C6C6C600C6C6C6000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF0084848400FFFF
+      FF00FFFFFF0084848400C6C6C600000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF0084848400000000000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF0084848400000000000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF00FFFFFF00848484008484
+FFFFFF00FFFFFF00C6C6C60084848400C6C6C600C6C6C600C6C6C6008484
+      840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484008484
+FFFFFF00FFFFFF00C6C6C60084848400C6C6C600C6C6C600C6C6C6008484
+      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
+FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6
+      C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      0000000000000000000000000000FFFFFF0000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF000000000000000000FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      00000000000000000000000000000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484
+      8400848484008484840084848400000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000848484000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000008484
+      84008484840084848400848484000000000000000000FFFFFF0000FFFF000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840084848400000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008484
+      8400000000000000000084848400000000000000000000FFFF00FFFFFF000000
+      0000848484008484840000000000848484008484840000000000848484000000
+      00000000000000000000848484000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C6000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C600000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+      84008484840084848400848484000000000000000000FFFFFF0000FFFF000000
+      0000848484000000000000000000000000008484840084848400848484008484
+      8400848484008484840084848400000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000
+      0000848484008484840084848400848484008484840084848400848484000000
+      000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000
+      0000848484008484840084848400000000008484840000000000000000000000
+      000000000000848484008484840000000000FFFFFF0000000000FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
+      000000000000C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000000000000000
+      000000000000C6C6C600C6C6C60000000000FFFFFF0084848400000000000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF0084848400000000000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF0084848400000000000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840000000000848484008484840000000000000000008484
+      840000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840000000000848484008484840000000000000000008484
+      840000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484000000000000000000000000008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484000000000000000000000000008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840084848400000000008484840000000000848484000000
+      000000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840084848400000000008484840000000000848484000000
+      000000000000000000008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      840084848400848484008484840000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000840000008400000084000000840000008400000084000000840000008400
+      000084000000840000008400000000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000840000008400000084000000840000008400000084000000840000008400
+      000084000000840000008400000000000000FFFFFF00FFFFFF00FFFFFF000000
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF000000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF000000
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF000000FF000000FF00000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6
+      C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+      0000000000000000000000000000FFFFFF0000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF000000000000000000FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C600C6C6C600C6C6C60084848400000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000008484840000000000FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000C6C6
+      C6000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF
+      FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF00C6C6C60000FFFF0000000000FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF0000000000FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000
+      000000000000C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000000000000000
+      000000000000C6C6C600C6C6C60000000000FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6008484840000000000C6C6C600C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C60000000000C6C6C60000000000C6C6C6000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      000084000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF000000FF0000008400000000000000FFFFFF00FFFFFF00FFFFFF000000
+      000084000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF000000FF0000008400000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      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
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000000000000000000000000000C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C6C6C6000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600000000000000000000FFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C6000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF0000000000FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF0084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C6000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6
+      C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6000000000000000000C6C6C600000000000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C600000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C600000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6
+      C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000C6C6C600000000000000000000FFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C6000000000000000000FFFFFF0000FFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF0000000000FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000000000000000
+      00000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF0084848400000000000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF0084848400000000000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6
+      C60000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C6000000000000000000C6C6
+      C60000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000C6C6C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C6000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C60000000000C6C6C600C6C6C600C6C6C600C6C6
+      C6000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C600000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000C6C6C600000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00C6C6
+      C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000
+      000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000FFFF000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FF
+      FF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C60000000000000000000000000000000000C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+      00000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000000000000000000000000000C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600000000000000000000000000C6C6C600C6C6C600C6C6C600C6C6
+      C60000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C6000000000000000000C6C6C600C6C6C60000000000C6C6C6000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000BDBDBD000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000BDBDBD000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      84000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      00000000000000000000000000000000000000FFFF0000000000008484000084
+      84000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FF
+      FF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF000000
+      0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBD
+      BD0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF
+      FF000000000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF
+      FF00BDBDBD0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000000000000000000000000000FFFF0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      0000000000000000000000000000000000007B7B7B0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007B7B
+B00000000000000000000000000000000007B7B7B00FFFFFF00FFFFFF00FFFF
+      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
 …
     Bitmap = {
 C010108000900040014001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
+      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
+F00FF7FFF7FFF7F104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018631863186318631863
+      18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001863
+      FF7F007C007C0000FF7F0000FF7FFF7FFF7FFF7F00001042FF7F1F00FF7FFF7F
+      FF7FFF7FFF7F1F00FF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018630000186300000000
+      18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F
+C007C007C0000FF7F0000FF7FFF7FFF7F000010421863FF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000018631863186318631863
+      18630000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042
+C007C007C007C0000FF7FFF7FFF7FFF7F00001042FF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000010001000100010001000
+      10000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1042007C
+C0000007C007C0000FF7FFF7FFF7FFF7F00001042FF7F0000000000000000
+CFF7FFF7FFF7F1F00FF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
+      00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F007C007C0000
+      FF7FFF7F1042007C007C0000FF7FFF7FFF7F00001042FF7FFF7FFF7FFF7FFF7F
+      FF7F0000FF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7F000010021002100210020000FF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7F007C007C0000FF7FFF7FFF7F000010421863FF7FFF7FFF7FFF7F
+      FF7FFF7F0000FF7FFF7F186310420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      000000000000FF7FFF7F00001002100210020000FF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7F007C007C0000FF7FFF7FFF7F00001042FF7F1F00FF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F10420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
+      1002100210020000000000001002100210020000FF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7F1042007C0000FF7FFF7FFF7F000010421042FF7FFF7FFF7F
+F00FF7FFF7FFF7F104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
+      1002100210021002100210021002100210020000FF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F1042007C0000FF7FFF7FFF7F0000104210421863FF7F
+F00FF7F1863104210420000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
+      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
+E07F1863E07F1863E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7FFF7F
+      FF7FFF7F0000007C007CFF7FFF7FFF7FFF7FFF7FFF7FFF7F007C007C0000FF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F0000FF03FF03FF7FFF7F0000FF7FFF7FFF7FFF7F
+      FF03FF030000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
+      FF7F0000E07F1863E07F1863E07F1863E07F1863E07F0000FF7FFF7FFF7FFF7F
+      FF7FFF7F0000007C0000FF7F000000000000FF7FFF7F00000000007C0000FF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F0000FF030000FF7FFF7FFF7F0000FF7FFF7F0000
+FF030000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000E07FFF7FE07FFF7F
+      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
+E07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
+      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
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484
+      00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000000FFFF0000FFFF00FFFFFF00FFFFFF0000FFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008484
+      840084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00C6C6C600848484008484
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484
+      00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848484008484
+      84008484840084848400848484008484840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000084848400FFFFFF000000FF0000000000FFFFFF008484
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848484008484
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      84008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000C6C6C600FFFFFF000000FF000000FF0000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFF
+      FF00FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FFFF
+      FF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484
+      00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000
+C6C6C6000000000000000000C6C6C60000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF000000FF000000FF000000FF0000000000FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF000000000084848400C6C6C600FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00C6C6C6008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484
+      00008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C60000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00848484000000FF000000FF000000FF000000FF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000848400008484
+      0000848400008484000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000840000008400
+      00008400000084000000840000008400000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00848484000000FF000000FF00000000000000FF000000FF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400FFFFFF000000
+      00000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FF00
+FFFFFF008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      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
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      84008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000848400008484000084840000848400008484
+      00008484000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00848484000000FF0000000000FFFFFF00FFFFFF00FFFFFF00000000008484
+      840084848400C6C6C600FFFFFF00FF000000FFFFFF00C6C6C600848484008484
+      840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000848400008484000084840000848400008484
+      00008484000084840000848400008484000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00848484000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000
+      0000000000008484840084848400848484008484840084848400000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      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
+FFFFFF000000000000000000000000000000000000000000FFFFFF000000
+      84000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00000000000000000084840000FFFFFF0000000000000000000000
+      00000000000000000000FFFFFF00848400000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000084000000
+      000000000000000000000000FF00000000000000FF0000000000000000000000
+      000000008400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0084840000000000000000000000000000FFFF00000000
+FFFF000000000000000000000000000084840000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000000000000FFFF0000C6C6C600FFFFFF000000
+FFFFFF00C6C6C600FFFF00000000000000000000FFFFFF00FFFFFF00FFFF
+      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
+FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000
+      00000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFF000000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF000000000000000000FFFF000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF000000000000FFFF00C6C6
+      C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF00000000000000FF000000
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+      FF000000FF000000000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFF0000FFFF0000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFF0000FFFF000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000084848400000000000000
+      FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000
+      FF00000000008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008484840000000000FFFF0000C6C6C60000000000FFFFFF000000
+FFFFFF0000000000C6C6C600FFFF00000000000084848400FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF0000FFFF00000000000000
+      00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000
+      00000000000000FFFF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000000000000FFFF0000C6C6C600FFFFFF000000
+FFFFFF00C6C6C600FFFF00000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000FF000000FF000000FF000000FF000000FF00000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF
+FFFF0000FFFF00000000000000000000000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600C6C6C6008484
+      840000000000000000000000000000000000000000000000000000000000C6C6
+      C600848484008484840000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000C6C6C600C6C6C600848484000000000000000000000000000000
+      0000000000000000000000000000C6C6C600848484008484840000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF
+      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
+FFFFFF00FFFFFF00000000000000000084848400FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FF
+      FF0000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000FF
+      FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
+      000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF0000FF
+      FF0000000000FFFFFF0000FFFF000000000000FFFF00FFFFFF000000000000FF
+      FF0000FFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00424D3E000000000000003E000000
       2800000050000000300000000100010000000000400200000000000000000000
       000000000000000000000000FFFFFF0000000000000000000000000000000000
 …
     Bitmap = {
 C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      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
+FF7FFF7F0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000104210420000
+      000000000000FF7FFF7F00000000000000000000000000000000000000001042
+      00000000FF7F0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000010420000
+      000000000000FF7F000000000000000000000000000000000000000010421042
+      00000000FF7FFF7F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000010421042
+      00000000FF7FFF7F000000000000000000000000000000000000000010420000
+      000000000000FF7F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001042
+      00000000FF7F0000000000000000000000000000000000000000104210420000
+      000000000000FF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001042
+FF7FFF7F0000000000000000000000000000000000000000104210421042
+      1042104210421042FF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FF7F00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      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
+FF7FFF7FFF7FFF7F000000000000000000000000E07FFF7F0000E07F1863
+      E07F186300001863E07F1863E07F000000000000000000000000FF7F00000000
+      0000000000000000FF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F000000000000000000000000FF7FE07F000000000000
+      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7F000000000000FF7FFF7FFF7FFF7F00000000000000000000FF7F00000000
+      000000000000FF7FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07F000000000000000000000000000000000000FF7F00000000
+FF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F000000000000000000000000FF7FE07FFF7FE07FFF7F
+      E07FFF7FE07FFF7F000000000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7F00000000000000000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7F00000000FF7FFF7F0000FF7F000000000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F
+      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
+FF7FE07FFF7FE07F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F0000000000000000000000000000E07FF75EE07FF75E
+      E07FF75EE07FF75EE07F0000000000000000000000000000FF7FE07FFF7FE07F
+E07FFF7FE07FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F0000
+      FF7F000000000000000000000000FF7F0000000000000000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F000000000000000000000000FF7F0000E07FF75EE07F
+      F75EE07FF75EE07FF75EE07F000000000000000000000000E07FFF7F00000000
+      000000000000FF7FE07F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F000000000000000000000000E07FFF7F0000E07FF75E
+      E07FF75EE07FF75EE07FF75EE07F00000000000000000000FF7FE07FFF7FE07F
+E07FFF7FE07FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7F000000000000FF7F00000000FF7F0000000000000000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F000000000000000000000000FF7FE07FFF7F00000000
+      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
+FF7FE07FFF7FE07F00000000000000000000000000000000000000000000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F000000000000000000000000E07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07F00000000000000000000000000000000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7F00000000FF7F000000000000FF7F00000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F
+      E07FFF7FE07FFF7F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FE07FFF7F
+      E07F0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F
+      FF7F000000000000000000000000000000000000000000000000FF7FE07FFF7F
+      E07F000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000
+      000000000000000000000000000000000000000000000000EF3D000000000000
+EF3D0000000000000000000000000000000000000000E07FFF7FE07FFF7F
+      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
+E07F000000420000F75E0000000000000000000000000000E07F00000000
+E07F000000420000F75E0000000000000000000000000000FF7F00000000
+      00000000FF7FFF7FFF7F000000000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+E07F00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      0000000000000042004200000000000000000000000000000000FF7F00000000
+      0000000000000000FF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000420042000000000000000000000000E07F000000000000E07F
+F75E00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+F75E00000042004200000000000000000000000000000000FF7F00000000
+      0000000000000000FF7F000000000000000000000000000000000000E07FE07F
+      E07F000000000000000000000000000000000000000000000000E07F00000000
+E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      0000000000000042004200000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F000000000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+EF3D00000042004200000000000000000000000000000000FF7F00000000
+FF7F00000000FF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      EF3DEF3D00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000004200000000000000000000000000000000000000000000
+      0000000000000000004200000000000000000000000000000000FF7F00000000
+      FF7F000000000000FF7F00000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D000000000000000000000000000000000000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D0000000000000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000E07FE07FE07F000000000000
+      00000000000000000000000000000000000000000000000000000000E07F0042
+      E07F0042E07F004200000000000000000000000000000000000000000042E07F
+E07F0042E07F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FE07F0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+E07F0042E07F004200000000000000000000000000000000000000000000
+      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
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00C6C6C60000FFFF00C6C6C60000FFFF000000000000FFFF00C6C6C60000FF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000FFFFFF000000
+FFFF00C6C6C60000FFFF0000000000000000000000000000000000C6C6
+      C60000FFFF000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF000000000000FFFF00C6C6C60000FFFF00C6C6C60000000000C6C6C60000FF
+      FF00C6C6C60000FFFF0000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFF
+      FF0000000000FFFFFF0000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      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
+FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      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
+FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBD
+      BD0000FFFF0000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF000000000000000000000000000000000000000000FFFFFF0000FF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF000000000000FFFF00BDBDBD0000FFFF00BDBDBD0000FFFF00BDBDBD0000FF
+      FF00BDBDBD0000FFFF000000000000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF
+      FF000000000000000000FFFFFF000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF00000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+      000000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF0000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000007B7B
+B00000000000000000000000000000000007B7B7B0000000000000000000000
+      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
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD00000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD00000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF000000
+      0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000007B7B7B0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      0000000000000000000000000000000000000000000000000000000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      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
 …
     Bitmap = {
 C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      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
+F001F001F001F001F000000000000000000000000000000007C007C10421042
+      1042104210421042104200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421F001F001F00
+F001F001F001F001F000000000000000000000000000000007C007C007C1042
+      1042104210421042104200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421F0000000000
+      0000000000000000000000000000000000000000000000000000007C007C1042
+      1042104210421863186300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF0300000000
+      0000000000000000000000000000000000000000000000000000007C007C007C
+      0000186318631863186300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042000000000000
+      00000000000000000000000000000000000000000000000000000000007C007C
+C007C18631863186300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF0300000000
+      0000000000000000000000000000000000000000000000000000186318631863
+C007C18631863000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000104218630000E07F
+      FF030000FF030000FF0300000000000000000000000000000000186300001863
+C007C007C0000186300000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421863E07F0000
+FF030000FF03000000000000000000000000000000000000186318630000
+      1863007C007C007C000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042000018631863
+      FF030000FF030000FF0300000000000000000000000000000000000018631863
+      18630000007C007C007C00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF030000FF03
+FF030000FF03000000000000000000000000000000000000186300001863
+      0000186300001863007C00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042104210421042
+      1042104210421042104210420000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000010420000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000104200000000
+      0000000000000000000000000000000000000000000000000000000010421F00
+F001F001F001F001F001F001F00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042000000000000
+      000000000000000000000000000000000000000000000000000010421F001F00
+F001F001F001F001F001F000000000000000000000000001042000010421F00
+F001F001F001F001F001F001F00000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421F001F001F00
+F001F001F001F001F000000000000000000000000001042000010421F001F00
+F001F001F001F001F001F0000000000000000000000000010421F0010421F00
+F001F001F001F001F0000020002000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421F001F001F00
+F001F001F001F001F0000000000000000000000000010421F0010421F001F00
+F001F001F001F000002000200000000000000001042000010421F001042FF03
+FF0300000002000200020002000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421F001F001F00
+F001F001F000002000200000000000000000000000010421F001042FF030000
+      FF0300000002000200020002000000000000000010421F0010421F0010420000
+      FF030000FF030000FF0300020002000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF030000FF03
+      0000000200020002000200000000000000000000000010421F0010420000FF03
+FF030000FF0300020002000000000000000010421F001042FF031042FF03
+      186318630000FF030000FF030000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010420000FF030000
+      FF030000FF03000200020000000000000000000000001042FF031042FF031863
+      18630000FF030000FF030000000000000000000010421F001042000010421863
+E07F18630000FF030000FF03000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF0318631863
+FF030000FF03000000000000000000000000000010420000104218630000
+      E07F18630000FF030000FF0300000000000000001042FF031042FF0310421863
+      E07F00001863FF030000FF030000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000104218630000E07F
+      18630000FF030000FF030000000000000000000000001042FF0310421863E07F
+      00001863FF030000FF0300000000000000000000104200001042186310420000
+      18631863FF030000FF030000FF03000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000010421863E07F0000
+FF030000FF03000000000000000000000000000010421863104200001863
+FF030000FF030000FF0300000000000000001042FF03104218631042FF03
+FF030000FF030000FF030000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042000018631863
+      FF030000FF030000FF03000000000000000000000000104218631042FF030000
+      FF030000FF030000FF0300000000000000000000104218631042000010421042
+      1042104210421042104210421042104200000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042FF030000FF03
+FF030000FF03000000000000000000000000000010420000104210421042
+      1042104210421042104210421042000000000000104218631042FF030000FF03
+FF030000FF03000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042104210421042
+      104210421042104210421042000000000000000000001042FF030000FF030000
+      FF030000FF030000000000000000000000000000104200001042104210421042
+      1042104210421042104210420000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000010421042104210421042
+      10421042104210421042000000000000000000001042FF030000FF030000FF03
+FF0300000000000000000000000000000000000000000000000000000000
+      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
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+      0000000000000000000000000000000000000000000000000000000000000000
+      FF000000FF008484840084848400848484008484840084848400848484008484
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+      0000000000000000000000000000000000000000000000000000000000000000
+      FF000000FF000000FF0084848400848484008484840084848400848484008484
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FF0000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000FF000000FF0084848400848484008484840084848400C6C6C600C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000FF000000FF000000FF0000000000C6C6C600C6C6C600C6C6C600C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000FF000000FF000000FF000000FF00C6C6C600C6C6C600C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+C6C6C600C6C6C600C6C6C6000000FF000000FF00C6C6C600C6C6C6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+C6C6C6000000000000FFFF00FFFF000000000000FFFF000000000000FFFF
+      0000000000000000000000000000000000000000000000000000000000000000
+C6C6C60000000000C6C6C6000000FF000000FF000000FF0000000000C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+C6C6C600C6C6C60000000000C6C6C6000000FF000000FF000000FF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      840000000000C6C6C600C6C6C600FFFF000000000000FFFF000000000000FFFF
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C6C6C600C6C6C600C6C6C600000000000000FF000000FF000000
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+C6C6C60000000000C6C6C60000000000C6C6C60000000000C6C6C6000000
+      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
+FF000000FF00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000084848400FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF0000000000000000000000000000000000000000000000000000008484
+      84000000000084848400FF000000FF000000FF000000FF000000FF000000FF00
+FF000000FF00000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+      0000000000000000000000000000000000000000000000000000848484000000
+      000084848400FF000000FF000000FF000000FF000000FF000000FF000000FF00
+FF0000000000000000000000000000000000000000000000000000008484
+FF00000084848400FF000000FF000000FF000000FF000000FF000000FF00
+      0000008400000084000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+      000000000000000000000000000000000000000000000000000084848400FF00
+      000084848400FF000000FF000000FF000000FF000000FF000000FF0000000084
+      0000008400000000000000000000000000000000000084848400000000008484
+FF00000084848400FFFF000000000000FFFF000000000000008400000084
+      0000008400000084000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FF000000FF000000FF000000FF000000FF000000FF000000008400000084
+      000000000000000000000000000000000000000000000000000084848400FF00
+      000084848400FFFF000000000000FFFF00000000000000840000008400000084
+      0000008400000000000000000000000000000000000084848400FF0000008484
+FF0000008484840000000000FFFF000000000000FFFF000000000000FFFF
+      0000008400000084000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF000000000000FFFF0000000000000084000000840000008400000084
+      000000000000000000000000000000000000000000000000000084848400FF00
+      00008484840000000000FFFF000000000000FFFF000000000000FFFF00000084
+      0000008400000000000000000000000000000000000084848400FF0000008484
+FFFF000084848400FFFF0000C6C6C600C6C6C60000000000FFFF00000000
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      840000000000FFFF000000000000FFFF000000000000FFFF0000008400000084
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      000084848400FFFF0000C6C6C600C6C6C60000000000FFFF000000000000FFFF
+      0000000000000000000000000000000000000000000084848400FF0000008484
+      84000000000084848400C6C6C6000000000000FFFF00C6C6C60000000000FFFF
+      000000000000FFFF000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF0000C6C6C600C6C6C60000000000FFFF000000000000FFFF00000000
+      0000000000000000000000000000000000000000000000000000848484000000
+      000084848400C6C6C6000000000000FFFF00C6C6C60000000000FFFF00000000
+FFFF00000000000000000000000000000000000084848400FFFF00008484
+FFFF000084848400C6C6C60000FFFF0000000000C6C6C600FFFF00000000
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+C6C6C6000000000000FFFF00C6C6C60000000000FFFF000000000000FFFF
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      000084848400C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF
+      0000000000000000000000000000000000000000000084848400000000008484
+C6C6C6008484840000000000C6C6C600C6C6C600FFFF000000000000FFFF
+      000000000000FFFF000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+C6C6C60000FFFF0000000000C6C6C600FFFF000000000000FFFF00000000
+      000000000000000000000000000000000000000000000000000084848400C6C6
+      C6008484840000000000C6C6C600C6C6C600FFFF000000000000FFFF00000000
+FFFF00000000000000000000000000000000000084848400FFFF00008484
+C6C6C60084848400FFFF000000000000FFFF000000000000FFFF00000000
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      840000000000C6C6C600C6C6C600FFFF000000000000FFFF000000000000FFFF
+      000000000000000000000000000000000000000000000000000084848400C6C6
+      C60084848400FFFF000000000000FFFF000000000000FFFF000000000000FFFF
+      0000000000000000000000000000000000000000000084848400C6C6C6008484
+      8400000000008484840084848400848484008484840084848400848484008484
+      8400848484008484840084848400000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000
+      0000000000000000000000000000000000000000000000000000848484000000
+      0000848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840000000000000000000000000084848400C6C6C6008484
+FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      840084848400000000000000000000000000000000000000000084848400FFFF
+      000000000000FFFF000000000000FFFF000000000000FFFF0000000000000000
+      0000000000000000000000000000000000000000000084848400000000008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400000000000000000000000000000000000000000084848400FFFF00000000
+FFFF000000000000FFFF000000000000FFFF000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
       2800000040000000300000000100010000000000800100000000000000000000
       000000000000000000000000FFFFFF0000000000000000000000000000000000
 …
     Bitmap = {
 C01010A000E00040020001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      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
+E07F1863E07F1863E07F0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF7F0000E07F1863E07F
+E07F1863E07F1863E07F0000000000000000000000000000000000000000
+      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
+F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F
+F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000
+      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
+CFF7FFF7FFF7F1F00FF7F1042000000000000000000000000000000000000
+      00000000000000000000000000000000000000001042FF7F0000000000000000
+CFF7FFF7FFF7F1F00FF7F1042000000000000000000000000000000000000
+      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
+F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000010421042FF7FFF7FFF7F
+F00FF7FFF7FFF7F104210420000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000104210421863FF7F
+F00FF7F18631042104200000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000104210421863FF7F
+F00FF7F18631042104200000000000000000000000000000000000000000000
+      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
+FF0300000000000010020000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000001002000000000000FF03
+FF0300000000000010020000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000007C1863FF7F
+FF7F1863007C000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000007C1863FF7F
+FF7F1863007C000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF031863FF7F
+FF7F1863FF03000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF031863FF7F
+FF7F1863FF03000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000007C18630000FF7F
+      FF7FFF7F00001863007C00001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000007C18630000FF7F
+      FF7FFF7F00001863007C00001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000FF0318630000FF7F
+      FF7FFF7F00001863FF0300001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000FF0318630000FF7F
+      FF7FFF7F00001863FF0300001042000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7F007C007C0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F
+      FF7FFF7FFF7FFF7F007C007C0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF03FF03FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF03FF03FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C0000FF7F00000000
+FF7FFF7F00000000007C0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C0000FF7F00000000
+FF7FFF7F00000000007C0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF030000FF7FFF7FFF7F
+FF7FFF7F00000000FF030000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF030000FF7FFF7FFF7F
+FF7FFF7F00000000FF030000000000000000000000000000000000000000
+      000000000000000000000000000000000000E07F0000007C007CFF7FFF7FFF7F
+FF7FFF7FFF7F007C007C0000E07F00000000000000000000000000000000
+      000000000000000000000000000000000000E07F0000007C007CFF7FFF7FFF7F
+FF7FFF7FFF7F007C007C0000E07F00000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF03FF03FF7FFF7FFF7F
+FF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF03FF03FF7FFF7FFF7F
+FF7FFF7FFF7FFF03FF030000000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000007C18630000FF7F
+FF7F00001863007C00001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000007C18630000FF7F
+FF7F00001863007C00001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000FF0318630000FF7F
+FF7F00001863FF0300001042000000000000000000000000000000000000
+      000000000000000000000000000000000000000010420000FF0318630000FF7F
+FF7F00001863FF0300001042000000000000000000000000000000000000
+      000000000000000000000000000000000000E07FE07F00000000007C1863FF7F
+FF7F1863007C00000000E07FE07F00000000000000000000000000000000
+      000000000000000000000000000000000000E07FE07F00000000007C1863FF7F
+FF7F1863007C00000000E07FE07F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF031863FF7F
+FF7F1863FF03000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF031863FF7F
+FF7F1863FF03000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000007C007C
+C007C007C0000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000007C007C
+C007C007C0000000000000000000000000000000000000000000000000000
+      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
+E07F0000E07FE07F00000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000E07FE07F0000E07F
+E07F0000E07FE07F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000E07FE07F00000000E07F
+E07F00000000E07FE07F0000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000E07FE07F00000000E07F
+E07F00000000E07FE07F0000000000000000000000000000000000000000
+      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
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      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
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      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
+FFFFFF008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400FFFFFF000000
+      00000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FF00
+FFFFFF008484840000000000000000000000000000000000000000000000
+      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
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484008484
+FFFFFF00FFFFFF00FFFFFF00FF000000FFFFFF00FFFFFF00FFFFFF008484
+      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
+FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+      FF00C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000
+      FF00000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+      FF00C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C6000000
+      FF00000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008484840000000000FFFF
+C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600FFFF
+      0000000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008484840000000000FFFF
+C6C6C60000000000FFFFFF00FFFFFF00FFFFFF0000000000C6C6C600FFFF
+      0000000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000FF000000
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      FF000000FF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000FF000000
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      FF000000FF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000FF000000
+FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000
+      00000000FF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000FF000000
+FFFFFF00000000000000000000000000FFFFFF00FFFFFF00000000000000
+      00000000FF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF00000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00000000000000
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF00000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00000000000000
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF00000000000000FF000000
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+      FF000000FF000000000000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF00000000000000FF000000
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+      FF000000FF000000000000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+FFFF00000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+      FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000
+      FF00000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+      FF00C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C6000000
+      FF00000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008484840000000000FFFF
+C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C600FFFF
+      0000000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008484840000000000FFFF
+C6C6C60000000000FFFFFF0000000000FFFFFF0000000000C6C6C600FFFF
+      0000000000008484840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000FFFF00000000000000
+      00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000FFFF00000000000000
+      00000000FF00C6C6C600FFFFFF0000000000FFFFFF00C6C6C6000000FF000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000C6C6C600FFFFFF0000000000FFFFFF00C6C6C600FFFF00000000
+      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
 …
     Bitmap = {
 C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      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
+C10000000000000008D048D04000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000001002
+      104010420000000000008D048D04000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FF03
+C18630000000000008D048D04000000000000000000000000000000000000
+      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
+C0000007C007C007C007C007C007C00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000007C00000000000000000000
+      0000000000000000000000000000007C00000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000FF038D04
+D048D048D048D048D0400000000000000000000000000000000000000000000
+      0000104200000000000000000000000000000000007C00000000000000000000
+      0000007C10000000000000000000007C00000000000000000000000000000000
+      0000007C10000000000000000000000000000000000000000000000000008D04
+D048D048D048D048D0400000000000000000000000000000000000000000000
+      1042000010420000000000000000000000000000007C00000000000000000000
+      1002104010420000000000000000007C00000000000000000000000000000000
+      10021040104200000000000000000000000000000000000000000000FF03FF03
+      FF038D048D04FF03FF0300000000000000000000000000000000000000000000
+      1863104218630000000000000000000000000000007C00000000000000000000
+      FF03007C18630000000000000000007C00000000000000000000000000000000
+      FF03007C1863000000000000000000000000000000000000000000000000EF3D
+      EF3D8D048D040000000000000000000000000000000000000000000000000000
+      1863000010420000000000000000000000000000007C00000000000000000000
+      1863004010420000000000000000007C00000000000000000000000000000000
+      18630040104200000000000000000000000000000000000000000000FF03FF03
+      FF038D048D04FF03FF0300000000000000000000000000000000000000001042
+      0000186300000000000000000000000000000000007C00000000000000001042
+      0000186300000000000000000000007C00000000000000000000000000001042
+      000018630000000000000000000000000000000000000000000000000000EF3D
+D048D04EF3D000000000000000000000000000000000000000000000000
+      0000000010420000000000000000000000000000007C00000000000000000000
+      0000100010020000000000000000007C00000000000000000000000000000000
+      00001000100200000000000000000000000000000000000000000000FF038D04
+D048D048D048D048D0400000000000000000000000000000000000000000000
+      0000186300000000000000000000000000000000007C00000000000000000000
+      0000186300000000000000000000007C00000000000000000000000000000000
+      0000186300000000000000000000000000000000000000000000000000008D04
+D048D048D048D048D0400000000000000000000000000000000104210421042
+      1863186318630000104218630000000000000000007C00000000104210021002
+      1863186318631000100218630000007C00000000000000000000104210021002
+      18631863186310001002186300000000000000000000000000000000FF03FF03
+      FF03FF03FF03FF03FF0300000000000000000000000010421042104210421042
+      1042186310421042104210421042104200000000007C10021002100210021002
+      1002186310021002100210021002100200000000000010021002100210021002
+      1002186310021002100210021002100200000000000000000000000000000000
+      0000000000000000000000000000000000000000104210421042104210421042
+      0000186310421042104210421042104218630000104210021002100210021002
+      1000186310021002100210021002100210420000104210021002100210021002
+      1000186310021002100210021002100210420000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000010421042
+      0000104200001042104200000000000000000000007C00000000000010021002
+      0000100200001002100200000000007C00000000000000000000000010021002
+      00001002000010021002000000000000000000000000000000000000EF3D0000
+      EF3D0000EF3D0000EF3D00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000007C007C007C007C007C007C
+C007C007C007C007C007C007C007C00000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000EF3D0000
+      EF3D0000EF3D0000EF3D00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000F75E000000000000000000000000000000000000000000000000
+      000000000000F75E000000000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000000F75E00000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000000F75E000000000000000000000000FF7F0000FF7FFF03FF03
+      FF03FF03FF03FF03FF03FF7F00000000000000000000000000000000E07FE07F
+      E07F000000000000000000000000000000000000000000000000E07F00000000
+E07F000000420000F75E0000000000000000000000000000E07F00000000
+E07F000000420000F75E00000000000000000000FF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+E07F000000420042000000000000000000000000FF7F0000FF7FFF03FF03
+      FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      00000000000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D
+      EF3DEF3DFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000420042000000000000000000000000E07F000000000000E07F
+F75E000000420042000000000000000000000000FF7F0000FF7FFF03FF03
+      FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+F75E000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D
+      FF7FEF3DEF3DEF3DFF7FFF7F00000000000000000000000000000000E07FE07F
+      E07F000000000000000000000000000000000000000000000000E07F00000000
+E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      00000000000000420042000000000000000000000000FF7F0000FF7FFF03FF03
+      FF03FF03FF03FF03FF03FF7F00000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+EF3D000000420042000000000000000000000000FF7F0000FF7FFF7FEF3D
+      EF3DFF7FEF3DFF7FFF7FFF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      EF3DEF3D000000420042000000000000000000000000FF7F0000FF7FFF03FF03
+      FF03FF03FF03FF03FF03FF7F0000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000004200000000000000000000000000000000000000000000
+      00000000000000000042000000000000000000000000FF7F0000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D000000000000000000000000000000000000EF3DEF3DEF3DEF3D
+      EF3DEF3DEF3D00000000000000000000000000000000FF7F00000000FF7F0000
+      FF7F0000FF7F0000FF7F00000000000000000000E07FE07FE07F000000000000
+      00000000000000000000000000000000000000000000000000000000E07F0042
+      E07F0042E07F004200000000000000000000000000000000000000000042E07F
+E07F0042E07F0000000000000000000000000000000000000000EF3D0000
+      EF3D0000EF3D0000EF3D00000000000000000000E07FE07F0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+E07F0042E07F004200000000000000000000000000000000000000000000
+      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
+B2108006B2108006B2108006B2108000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000006B2108006B21
+B2108006B2108006B2108006B2108000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+B2108006B21080000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FF008400000000000000000000000000
+B2108006B21080000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000084840000840084008484840000000000000000000000
+B2108006B21080000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFF00000000FF00C6C6C60000000000000000000000
+B2108006B21080000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C6C6C6000000840084848400000000006B2108006B21
+B2108006B2108006B2108006B2108000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000008484840000000000C6C6C60000000000000000006B2108006B21
+B2108006B2108006B2108006B2108000000000000000000000000000000
+      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
+C6C6C600000000000000000000000000000000000000FF00000000000000
+      0000848484008484000084840000C6C6C600C6C6C600C6C6C600840000008484
+C6C6C600000000000000FF00000000000000000000000000000000000000
+      0000848484008484000084840000C6C6C600C6C6C600C6C6C600840000008484
+C6C6C6000000000000000000000000000000000000000000000000000000
+      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
+B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000FF000000FF000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000FF000000FF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B
+B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BDBDBD000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BDBDBD000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD00000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000BDBD
+      BD00000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
+FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+BDBDBD000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
+FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFFFF007B7B7B007B7B7B007B7B7B00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF000000
+      0000000000000000000000FFFF0000000000BDBDBD0000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
+FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000000000BDBDBD0000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFFFF007B7B7B00FFFFFF007B7B7B007B7B7B007B7B7B00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
+FFFFFF000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000007B7B7B0000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFFFF007B7B7B007B7B7B00FFFFFF007B7B7B00FFFFFF00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF007B7B7B007B7B7B0000000000008484000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
+FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000084
+      8400000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      0000000000000000000000000000000000000000000000000000000000007B7B
+B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B00000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF000000
+      000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF
+      FF00000000000000000000000000000000000000000000FFFF0000FFFF0000FF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF000084840000FFFF000084840000FFFF00008484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000084840000FFFF000084840000FFFF000084840000FFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B
+B00000000000000000000000000000000000000000000FFFF0000FFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000084840000FFFF000084840000FFFF000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000FFFF000084840000FFFF000084840000FF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B
+B00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000007B7B7B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000007B7B7B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000424D3E000000000000003E000000
 …
     Bitmap = {
 C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001001000000000000020
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000E07F1863E07F1863E07F
+E07F1863E07F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FFF7F0000000000000000
+      0000000000000000000000000000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000FF7FE07F0000FF7F0000FF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FFF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000FF7FE07F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7F00000000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FF7F0000FF7F0000FF7F
+FF7FFF7FFF7F0000FF7F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000104200000000FF7F0000FF7F
+FF7FFF7F0000FF7FFF7F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7F0000FF7FFF7FFF7F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+      00000000FF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000000000000000
+      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
+E07F0000E07FFF7F00000000FF7F00000000FF7FFF7FFF7FFF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F
+      FF7F0000FF7FE07F0000E07FFF7F000000000000E07FFF7FE07F0000E07F0000
+      E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7F0000
+      FF7F000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F0000000000000000000000000000E07FFF7F0000FF7F
+FF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7F00000000E07F
+      FF7FE07F0000E07FFF7F00000000FF7F00000000FF7FFF7F0000FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F00000000
+      FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7FE07F0000E07FFF7F
+      E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FFF7F0000FF7FFF7F0000
+      FF7F000000000000FF7F00000000FF7F00000000000000000000FF7F00000000
+      000000000000FF7FFF7F0000000000000000000000000000E07FFF7F0000FF7F
+      E07FFF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F00000000FF7F00000000000000000000000000000000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7FE07FFF7F000000000000000000000000000000000000
+      000000000000000000000000FF7FFF7F00000000FF7FFF7F0000FF7FFF7F0000
+      FF7F00000000FF7F000000000000FF7F00000000000000000000FF7FFF7FFF7F
+FF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7F00000000FF7F00000000000000000000FF7FFF7F0000FF7FFF7F0000
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FE07FFF7F
+      E07F000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7F0000FF7F000000000000FF7FFF7FFF7FFF7FFF7F0000
+      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F
+      FF7F000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F00000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07F000000000000000000000000E07F1863E07F1863E07F
+E07F1863E07F000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
+      E07FFF7FE07FFF7FE07FFF7FE07F000000000000FF7FE07FFF7FE07F00000000
+      00000000FF7FE07FFF7F00000000000000000000E07F0000E07F1863E07F1863
+      E07F1863E07F1863E07F0000FF7FFF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F
+      000000000000E07FFF7FE07FFF7F000000000000E07FFF7FE07F0000E07FFF7F
+      E07FFF7F0000FF7FE07F0000FF7FFF7F00000000FF7FE07F0000E07F1863E07F
+E07F1863E07F1863E07F0000FF7F00000000000000000000FF7F00000000
+      00000000FF7FFF7FFF7F0000000000000000000000000000E07FFF7FE07F0000
+      E07FFF7FE07F0000E07FFF7FE07F000000000000FF7FE07F0000E07FFF7FE07F
+      FF7FE07FFF7F0000FF7F00000000FF7F00000000E07FFF7F0000000000000000
+      0000000000000000000000000000FF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F
+      FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7F0000FF7FE07FFF7F
+      E07FFF7FE07F0000E07F0000FF7FFF7F00000000FF7FE07F0000FF7F0000FF7F
+      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7F00000000
+      0000000000000000FF7F0000000000000000000000000000E07FFF7F0000FF7F
+      E07FFF7FE07FFF7F0000FF7FE07F000000000000FF7FE07FFF7F0000FF7FE07F
+      FF7FE07F0000E07FFF7F00000000FF7F00000000E07FFF7F0000FF7F0000FF7F
+      FF7FFF7F000000000000FF7FFF7FFF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07F0000E07F
+      FF7FE07FFF7FE07F0000E07FFF7F000000000000E07FFF7FE07FFF7F00000000
+      00000000E07FFF7FE07F0000FF7FFF7F00000000FF7FE07F0000FF7F0000FF7F
+      FF7F0000FF7FFF7FFF7F0000FF7FFF7F00000000000000000000FF7F00000000
+      0000000000000000FF7F0000000000000000000000000000E07FFF7FE07F0000
+      E07FFF7FE07F0000E07FFF7FE07F000000000000FF7FE07FFF7FE07FFF7FE07F
+      FF7FE07FFF7FE07FFF7F00000000FF7F000000000000FF7F0000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000FF7FE07FFF7FE07F
+      000000000000E07FFF7FE07FFF7F000000000000000000000000000000000000
+      000000000000000000000000FF7FFF7F00000000104200000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7F00000000
+FF7F00000000FF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7F00000000FF7F00000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7FFF7F0000FF7F00000000000000000000FF7FFF7FFF7F
+      FF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000FF7FE07FFF7F
+      E07F000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7F0000FF7F000000000000000000000000FF7F0000FF7F
+      FF7F0000FF7FFF7FFF7F0000FF7FFF7F00000000000000000000FF7F00000000
+      FF7F000000000000FF7F00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FF7F0000FF7F
+FF7FFF7FFF7FFF7F00000000000000000000000000000000FF7F0000FF7F
+      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
+E07F00000042000018630000000000000000000000000000E07F00000000
+E07F00000042000018630000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+E07F00000042004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      0000000000000042004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000420042000000000000000000000000E07F000000000000E07F
+      0000186300000042004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      0000186300000042004200000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000E07FE07F
+      E07F000000000000000000000000000000000000000000000000E07F00000000
+E07F000000420042000000000000000000000000E07FE07FE07FE07FE07F
+      0000000000000042004200000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000E07FE07F
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000000000000000
+      0000104200000042004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E07FE07FE07F
+      E07FE07F00000042004200000000000000000000000000000000FF7FFF7FFF7F
+      1042104200000042004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000004200000000000000000000000000000000000000000000
+      0000000000000000004200000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000001042104210421042
+      1042104210420000000000000000000000000000000000001042104210421042
+      1042104210420000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FE07FE07F000000000000
+      00000000000000000000000000000000000000000000000000000000E07F0042
+      E07F0042E07F004200000000000000000000000000000000000000000042E07F
+E07F0042E07F000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000E07FE07F0000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+E07F0042E07F004200000000000000000000000000000000000000000000
+      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
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000FFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      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
+FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+      FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+      FF000000000000FFFF00FFFFFF0000FFFF000000000000000000FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000000000FFFFFF000000
+FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF0000FFFF000000000000FFFF000000000000FFFF00FFFF
+      FF000000000000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF000000000000FFFF00FFFFFF0000000000FFFFFF0000FFFF000000
+FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+      FF000000000000FFFF000000000000FFFF00FFFFFF0000000000FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000FFFF00FFFFFF000000
+FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF00000000000000000000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF
+      FF000000000000000000FFFFFF000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF000000000000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000
+FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+      FF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00000000000000000000000000FFFF
+      FF000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF000000000000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF000000000000000000FFFFFF000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
+FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      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
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF0000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+      FF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6C60000FFFF00C6C6
+      C60000FFFF0000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF000000000000FF
+      FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF000000
+FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+      FF000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF000000
+FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000
+FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFF
+      FF000000000000000000FFFFFF00000000000000000000FFFF00FFFFFF000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000
+FFFF00FFFFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+      FF00FFFFFF000000000000000000000000000000000000FFFF00FFFFFF0000FF
+      FF0000000000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF000000
+FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00000000000000000000000000000000000000000000000000FFFF
+      FF000000000000000000000000000000000000000000000000000000000000FF
+      FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF000000000000FF
+      FF00FFFFFF0000FFFF00000000000000000000000000FFFFFF0000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
+      FF000000000000000000FFFFFF00000000000000000000000000FFFFFF000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000000000000000000000FFFF
+      FF0000FFFF00FFFFFF0000FFFF0000000000000000000000000000FFFF00FFFF
+      FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF00FFFFFF00000000000000000084848400000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00000000000000000000000000FFFFFF000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF0000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
+      FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF000000000000000000FFFFFF00000000000000000000000000FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFFFF000000000000000000000000000000000000000000000000000000
+      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
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000000000C6C6
+      C600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+C6C6C6000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000000
+C6C6C6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF000000
+      0000000000000000000000FFFF0000000000C6C6C60000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF0000000000C6C6C60000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000000000000000000000000000FFFF0000000000008484000084
+      840000000000000000000000000000000000000000000000000000FFFF0000FF
+      FF0000FFFF0000FFFF0000FFFF00000000000000000000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000FFFF0000FFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008484840000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000008484000084
+      8400000000000000000000000000000000000000000000000000000000000000
+FFFFFF00FFFFFF00FFFFFF00848484008484840000000000008484000084
+      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

cprs/branches/foia-cprs/CPRS-Chart/dShared.pas

-              r459
+              r460
   if(not assigned(FTIUObjects)) or (FRefreshObject = true)  then
   begin
+   FTIUObjects := TStringList.Create;
+    if(not assigned(FTIUObjects)) then
+      FTIUObjects := TStringList.Create;
     FTIUObjects.Clear;
     GetObjectList;

cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.dfm

-              r459
+              r460
           Height = 17
           Caption = 'Marked On Chart'
+          Checked = True
+          State = cbChecked
           TabOrder = 18
           Visible = False
 …
           ItemTipColor = clWindow
           ItemTipEnable = True
           ListItemsOnly = False
+          ListItemsOnly = True
           LongList = True
           LookupPiece = 0
 …
           TabOrder = 9
           OnChange = ControlChange
+          OnExit = ControlChange
           CharsNeedMatch = 1
         end
 …
           Left = 0
           Top = 330
           Width = 83
+          Width = 521
           Height = 13
           Align = alBottom
 …
           Font.Style = []
           ParentFont = False
+          ScrollBars = ssVertical
           TabOrder = 1
           OnExit = memCommentsExit

cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.pas

-              r459
+              r460
     btnSevHelp: TORAlignButton;
     procedure btnAgentClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure cboOriginatorNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
 …
                    'HISTORICAL: reported by the patient as occurring in the past;' + CRLF +
                    'no longer requires intervention' ;
  NEW_ALLERGY = True;
  ENTERED_IN_ERROR = True;
 …
   Result := False;
   frmARTAllergy := TfrmARTAllergy.Create(Application);
+  if frmARTAllergy.AbortAction then exit;
   with frmARTAllergy do
     try
 …
   ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten');
   cboSymptoms.InsertSeparator;
+  cboSymptoms.InitLongList('');
   cboOriginator.InitLongList(User.Name) ;
   cboOriginator.SelectByIEN(User.DUZ);
 …
 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;
 …
         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
 …
               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
 …
 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
 …
           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)

cprs/branches/foia-cprs/CPRS-Chart/fARTFreeTextMsg.dfm

r459	r460
7	7	Constraints.MinHeight = 180
8	8	Constraints.MinWidth = 394
9		~~FormStyle = fsStayOnTop~~
10	9	Position = poMainFormCenter
11	10	PixelsPerInch = 96

cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.dfm

-              r459
+              r460
         OnMouseClick = cboSrcListMouseClick
         OnNeedData = NewPersonNeedData
+        CharsNeedMatch = 1
       end
       object DstList: TORListBox
 …
         OnExit = cboCosignerExit
         OnNeedData = cboCosignerNeedData
+        CharsNeedMatch = 1
       end
       object txtAuthor: TCaptionEdit

cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas

-              r459
+              r460
     FChanged: Boolean;
     FNoteIEN: integer;
+    FRefDate: TFMDateTime;
     FToday: string;
     FTabID: integer;
 …
 procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings;
           var SignerList: TSignerList; TabID: integer) ;
+          var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ;
 const
 …
 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
 …
       FSigAction := SigAction;
       FNoteIEN := NoteIEN;
+      FRefDate := ARefDate;
       FExclusions.Assign(Exclusions);
       FToday := FloatToStr(FMToday);
 …
           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) ;
 …
     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;
 …
   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);

cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas

-              r459
+              r460
 {$R *.dfm}
 uses rCover, fCover;
+uses rCover, fCover, rODAllergy;
 const
 …
   BtnLeft:  array of integer;
   j, k: integer;
+  x: string;
 begin
   Result := TfrmAllgyBox.Create(Application);
 …
         if AWidth > MaxWidth then MaxWidth := AWidth;
       end;
-      cmdPrint.Visible := AllowPrint;
       MaxWidth := MaxWidth + GetSystemMetrics(SM_CXVSCROLL);
       AHeight := (ReportText.Count * (lblFontTest.Height + 2)) + pnlbutton.Height;
 …
       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

cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.dfm

-              r459
+              r460
   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
 …
   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
 …
   end
   object cmdSearch: TButton
     Left = 363
     Top = 38
+    Left = 362
+    Top = 88
     Width = 75
     Height = 21
 …
   end
   object cmdOK: TButton
     Left = 264
     Top = 365
+    Left = 263
+    Top = 422
     Width = 75
     Height = 22
 …
   end
   object cmdCancel: TButton
     Left = 346
     Top = 365
+    Left = 345
+    Top = 422
     Width = 75
     Height = 22
 …
   object stsFound: TStatusBar
     Left = 0
     Top = 391
     Width = 443
+    Top = 453
+    Width = 445
     Height = 19
     Panels = <>
 …
   end
   object ckNoKnownAllergies: TCheckBox
     Left = 80
     Top = 368
+    Left = 320
+    Top = 118
     Width = 119
     Height = 17
 …
   end
   object tvAgent: TORTreeView
     Left = 3
     Top = 81
+    Left = 2
+    Top = 138
     Width = 437
     Height = 270
 …
   end
   object imTree: TImageList
     Left = 397
     Top = 93
+    Left = 396
+    Top = 150
     Bitmap = {
 C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600

cprs/branches/foia-cprs/CPRS-Chart/fAllgyFind.pas

-              r459
+              r460
     tvAgent: TORTreeView;
     imTree: TImageList;
+    Label1: TLabel;
+    lblDetail: TLabel;
+    lblSearchCaption: TLabel;
     procedure cmdSearchClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
 …
   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 +
 …
                   '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 +
 …
   x: string;
   tmpList: TStringList;
   OKtoContinue: boolean;
+  OKtoContinue: boolean ;
 begin
   inherited;
 …
     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

cprs/branches/foia-cprs/CPRS-Chart/fCover.dfm

-              r459
+              r460
 inherited frmCover: TfrmCover
   Left = 334
   Top = 187
+  Left = 256
+  Top = 280
   HelpContext = 1000
   BorderIcons = []

cprs/branches/foia-cprs/CPRS-Chart/fCover.pas

-              r459
+              r460
     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
 …
 {$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
 …
              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
+: 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;
 …
       //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;
 …
   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...')
 …
 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;
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm

-              r459
+              r460
 inherited frmDCSumm: TfrmDCSumm
   Left = 180
   Top = 193
+  Left = 488
+  Top = 83
   Width = 687
   Height = 409
 …
         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 = '-'

cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.pas

-              r459
+              r460
     popSummMemoInsTemplate: TMenuItem;
     popSummMemoEncounter: TMenuItem;
+    mnuViewInformation: TMenuItem;
+    mnuViewDemo: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewReminders: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
+    mnuViewPostings: TMenuItem;
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstSummsClick(Sender: TObject);
 …
     procedure 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
 …
     procedure ClearEditControls;
     function StartNewEdit(NewNoteType: integer): Boolean;
     procedure DoAutoSave;
+    procedure DoAutoSave(Suppress: integer = 1);
     function LacksRequiredForCreate: Boolean;
     function GetTitleText(AnIndex: Integer): string;
 …
 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;
 …
   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);
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     SpellCheckForControl(memNewSumm);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     GrammarCheckForControl(memNewSumm);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
   SigAction: integer;
   SavedDocID: string;
+  ARefDate: TFMDateTime;
 begin
   inherited;
 …
   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
 …
 var
   CurTitle: Integer;
+  ADateTime:  TFMDateTime;
 begin
   Result := False;
 …
     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;
 …
 end;
 procedure TfrmDCSumm.DoAutoSave;
+procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1);
 var
   ErrMsg: string;
 …
     timAutoSave.Enabled := False;
     try
       SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex),1);
+      SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex), Suppress);
     finally
       timAutoSave.Enabled := True;
 …
 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;

cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.dfm

-              r459
+              r460
   OldCreateOrder = False
   Position = poScreenCenter
+  OnClose = FormClose
   OnShow = FormShow
   PixelsPerInch = 96
 …
       OnMouseClick = cboNewTitleMouseClick
       OnNeedData = cboNewTitleNeedData
+      CharsNeedMatch = 1
     end
     object calSumm: TORDateBox
 …
       OnMouseClick = cboAuthorMouseClick
       OnNeedData = cboAuthorNeedData
+      CharsNeedMatch = 1
     end
     object cboAttending: TORComboBox
 …
       OnExit = cboAttendingExit
       OnNeedData = cboAttendingNeedData
+      CharsNeedMatch = 1
     end
     object cmdOK: TButton
 …
       TabOrder = 0
       OnNeedData = cboAuthorNeedData
+      CharsNeedMatch = 1
     end
     object cboUrgency: TORComboBox
 …
       SynonymChars = '<>'
       TabOrder = 1
+      CharsNeedMatch = 1
     end
   end

cprs/branches/foia-cprs/CPRS-Chart/fDCSummProps.pas

-              r459
+              r460
     procedure lstAdmissionsChange(Sender: TObject);
     procedure cboNewTitleDblClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FCosignIEN: Int64;      // store cosigner that was passed in
 …
 {$R *.DFM}
 uses ORFn, uCore, rCore, uPCE, rPCE;
+uses ORFn, uCore, rCore, uPCE, rPCE, rMisc;
 { Initial values in ASumm
 …
 procedure TfrmDCSummProperties.FormShow(Sender: TObject);
 begin
+  SetFormPosition(Self);
   //if cboNewTitle.Text = '' then PostMessage(Handle, UM_DELAYEVENT, 0, 0);
 end;
 …
 end;
+procedure TfrmDCSummProperties.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  SaveUserBounds(Self);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.dfm

-              r459
+              r460
 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
 …
   OldCreateOrder = True
   Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
 …
   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'
 …
       ListItemsOnly = False
       LongList = True
+      LookupPiece = 0
       MaxLength = 0
       ParentShowHint = False
 …
       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

cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas

-              r459
+              r460
 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);
 …
     procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FWinPrint: Boolean;
 …
 {$R *.DFM}
 uses ORFn, rCore, uCore, rReports, Printers, fFrame;
+uses ORFn, rCore, uCore, rReports, Printers, fFrame, rMisc;
 const
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/fEncnt.dfm

-              r459
+              r460
 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
 …
   OldCreateOrder = True
   Position = poScreenCenter
+  Scaled = False
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnResize = FormResize
+  OnShow = FormShow
   DesignSize = (
 )
+)
   PixelsPerInch = 96
   TextHeight = 13
 …
     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
 …
     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
 …
     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 = (
+)
+    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

cprs/branches/foia-cprs/CPRS-Chart/fEncnt.pas

-              r459
+              r460
     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;
 …
     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);
 …
     procedure lstAdmitChange(Sender: TObject);
     procedure lstClinicChange(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     CLINIC_TXT : String;
 …
   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
 …
           cboNewVisit.InitLongList(uTIULocationName);
           cboNewVisit.SelectByIEN(uTIULocation);
+          cboNewVisitChange(Self);
         end
         else
 …
         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}
 …
 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.

cprs/branches/foia-cprs/CPRS-Chart/fFrame.dfm

-              r459
+              r460
 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
 …
     Top = 0
     Width = 676
     Height = 441
+    Height = 330
     Align = alClient
     Caption = 'No patient is currently selected'
 …
     Top = 0
     Width = 676
     Height = 441
+    Height = 330
     Align = alClient
     TabOrder = 0
 …
         Left = 0
         Top = 1
         Width = 24
+        Width = 39
         Height = 39
         Align = alLeft
 …
         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 = {
 …
       end
       object pnlPatient: TKeyClickPanel
         Left = 24
+        Left = 39
         Top = 1
         Width = 187
 …
       end
       object pnlVisit: TKeyClickPanel
         Left = 211
+        Left = 226
         Top = 1
         Width = 168
 …
       end
       object pnlPrimaryCare: TKeyClickPanel
         Left = 379
+        Left = 394
         Top = 1
         Width = 104
+        Width = 31
         Height = 39
         Hint = 'Primary Care Team / Primary Care Provider'
 …
       end
       object pnlCIRN: TKeyClickPanel
         Left = 518
+        Left = 520
         Top = 1
         Width = 49
 …
         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
 …
         ParentShowHint = False
         ShowHint = True
         TabOrder = 5
+        TabOrder = 6
         TabStop = True
         OnClick = pnlRemindersClick
 …
       end
       object pnlFlag: TKeyClickPanel
         Left = 483
+        Left = 485
         Top = 1
         Width = 35
 …
         ParentShowHint = False
         ShowHint = True
         TabOrder = 3
+        TabOrder = 4
         TabStop = True
         OnClick = pnlFlagClick
 …
       end
       object pnlPostings: TKeyClickPanel
         Left = 602
+        Left = 604
         Top = 1
         Width = 72
+        Width = 70
         Height = 39
         Hint = 'Click to display patient postings.'
 …
         ParentShowHint = False
         ShowHint = True
         TabOrder = 6
+        TabOrder = 7
         TabStop = True
         OnClick = pnlPostingsClick
 …
         OnMouseUp = pnlPostingsMouseUp
         object lblPtPostings: TStaticText
           Left = 6
+          Left = 5
           Top = 4
           Width = 57
 …
         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 = (
+)
+        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
 …
     object tabPage: TTabControl
       Left = 1
       Top = 397
+      Top = 286
       Width = 674
       Height = 22
 …
       Top = 42
       Width = 674
       Height = 355
+      Height = 244
       Align = alClient
       BevelOuter = bvNone
 …
   end
   object mnuFrame: TMainMenu
     Left = 68
     Top = 120
+    Left = 180
+    Top = 128
     object mnuFile: TMenuItem
       Caption = '&File'
 …
             Tag = 8
             Caption = '8 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
             Tag = 10
             Caption = '10 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
             Tag = 12
             Caption = '12 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
             Tag = 14
             Caption = '14 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
             Tag = 18
             Caption = '18 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
             Tag = 24
             Caption = '24 pt'
+            RadioItem = True
             OnClick = mnuFontSizeClick
           end
 …
         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
 …
         Caption = '-'
       end
+      object mnuToolsGraphing: TMenuItem
+        Caption = '&Graphing...'
+        ShortCut = 16455
+        OnClick = mnuToolsGraphingClick
+      end
       object LabInfo1: TMenuItem
         Caption = '&Lab Test Information...'
 …
       end
       object mnuToolsOptions: TMenuItem
         Caption = 'Options...'
+        Caption = '&Options...'
         OnClick = mnuToolsOptionsClick
       end
 …
   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'
 …
   object AppEvents: TApplicationEvents
     OnActivate = AppEventsActivate
+    Left = 496
+    Top = 368
+    OnShortCut = AppEventsShortCut
+    Left = 336
+    Top = 256
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fFrame.pas

-              r459
+              r460
 {$OPTIMIZATION OFF}                              // REMOVE AFTER UNIT IS DEBUGGED
 {$WARN SYMBOL_PLATFORM OFF}
+{$DEFINE CCOWBROKER}
 {.$define debug}
 …
     mnuAlertRenew: TMenuItem;
     AppEvents: TApplicationEvents;
+    paVAA: TKeyClickPanel;
+    mnuToolsGraphing: TMenuItem;
+    laVAA2: TButton;
+    laMHV: TButton;
+    lblCIRNAvail: TLabel;
+    mnuViewInformation: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
     procedure tabPageChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
 …
     procedure mnuHelpBrokerClick(Sender: TObject);
     procedure mnuFileEncounterClick(Sender: TObject);
-    procedure mnuViewDemoClick(Sender: TObject);
     procedure mnuViewPostingsClick(Sender: TObject);
     procedure mnuHelpAboutClick(Sender: TObject);
 …
     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);
 …
     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;
 …
     FCCOWBusy: boolean;
     FCCOWError: boolean;
+    FNoPatientSelected: boolean;
     FRefreshing: boolean;
     FClosing: boolean;
 …
     FTabChanged: TNotifyEvent;
     FOldActivate: TNotifyEvent;
+    FOldActiveFormChange: TNotifyEvent;
     FECSAuthUser: Boolean;
     FFixedStatusWidth: integer;
 …
     FFlagList: TStringList;
     FPrevPtID: string;
+    FVitalsDLLActive: boolean;
+    FGraphFloatActive: boolean;
+    FGraphContext: string;
     procedure RefreshFixedStatusWidth;
+    procedure FocusApplicationTopForm;
     procedure AppActivated(Sender: TObject);
     procedure AppDeActivated(Sender: TObject);
 …
     procedure SetDebugMenu;
     procedure SetupPatient(AFlaggedList : TStringList = nil);
     procedure SetUpCIRN;
+    //procedure SetUpCIRN;
     procedure RemindersChanged(Sender: TObject);
     procedure ReportsOnlyDisplay;
 …
     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;
 …
     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;
 …
 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
 …
 procedure TfrmFrame.TimeOutAction;
 begin
+  Close;
+  if frmFrame.VitalsDLLActive then
+    CloseVitalsDLL()
+  else
+    Close;
 end;
 …
   FContextChanging := True;
   Result := True;
   if COMObjectActive or SpellCheckInProgress then
+  if COMObjectActive or SpellCheckInProgress or VitalsDLLActive then
     begin
       Reason := 'COM_OBJECT_ACTIVE';
 …
   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;
 …
   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;
 …
   else
     begin
+      IsRunExecuted := False;
       FCCOWInstalled := False;
       pnlCCOW.Visible := False;
 …
   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;
 …
   FOldActivate := Application.OnActivate;
   Application.OnActivate := AppActivated;
   Application.OnDeactivate := AppDeActivated;
+  Application.OnDeActivate := AppDeActivated;
   // create initial core objects
   FCreateProgress := FCP_OBJECTS;
 …
   HasFlag  := False;
   FlagList := TStringList.Create;
-  FPrevPtID := '';
   // set up structures specific to the user
   Caption := TX_IN_USE + MixedCase(User.Name) + '  (' + RPCBrokerV.Server + ')';
 …
   FCreateProgress := FCP_FINISH;
   pnlReminders.Visible := InteractiveRemindersActive;
+  GraphFloatActive := false;
+  GraphContext := '';
   uRemoteType := '';
+  FPrevPtID := '';
   SetUserTools;
   EnduringPtSelSplitterPos := 0;
 …
   InitialOrderVariables;
   PostMessage(Handle, UM_INITIATE, 0, 0);    // select patient after main form is created
 //  mnuFileOpenClick(Self);
 //  if Patient.DFN = '' then  //*DFN*
 …
 //  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;
 …
 begin
   Application.OnActivate := FOldActivate;
+  Screen.OnActiveFormChange := FOldActiveFormChange;
   FNextButtonBitmap.Free;
   uTabList.Free;
 …
   User.Free;
   SizeHolder.Free;
+  ctxContextor.Free;
 end;
 …
 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;
 …
     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;
 …
 begin
   FClosing := TRUE;
+  SetFormMonitoring(false);
   if FCreateProgress < FCP_FINISH then FTerminate := True;
 …
   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
 …
   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;
 …
   //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;
 …
       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);
 …
   NextIndex: Integer;
   Reason: string;
+  CCOWResponse: UserResponse;
 begin
   SaveDFN := Patient.DFN;
 …
          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
 …
     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,
 …
         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);
 …
   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
 …
   end;
+  SaveDFN := Patient.DFN;
+  if FNoPatientSelected then
+    SaveDFN := ''
+  else
+    SaveDFN := Patient.DFN;
   OldRemindersStarted := RemindersStarted;
   RemindersStarted := FALSE;
 …
           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;
 …
       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;
 …
       if FCCOWInstalled and (ctxContextor.State = csParticipating) and (not FRefreshing) then
         begin
           if (AllowCCOWContextChange(Patient.DFN)) then
+          if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then
             begin
               SetupPatient;
 …
           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
 …
   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;
 …
 { 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;
 …
 { 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);
 …
 { 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);
 …
   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;
 …
      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);
 …
 var
   SizeList: TStringList;
+  SurgTempHt: integer;
 begin
   SaveUserFontSize(MainFontSize);
 …
       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,
 …
       //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
 …
       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
 …
       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 );
 …
     lblPtCWAD.Font.Color := clWindowText;
     lblFlag.Font.Color   := clWindowText;
+  end;
+  case (NewFontSize) of
+: mnu8pt.Checked := true;
+: mnu10pt1.Checked := true;
+: mnu12pt1.Checked := true;
+: mnu14pt1.Checked := true;
+: mnu18pt1.Checked := true;
+: mnu24pt1.Checked := true;
   end;
 …
   if Assigned(frmRemDlg) then frmRemDlg.SetFontSize;
   if Assigned(frmReminderTree) then frmReminderTree.SetFontSize(NewFontSize);
+  if GraphFloat <> nil then ResizeAnchoredFormToFont(GraphFloat);
 end;
 …
   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;
 …
   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;
 …
   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);
 …
   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;
 …
     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);
 …
   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;
 …
     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;
 …
 var
   ImgName: string;
 begin
   pnlReminders.tag := HAVE_REMINDERS;
 …
   pnlReminders.BevelOuter := bvRaised;
   if(pnlReminders.tag = HAVE_REMINDERS) then
     mnuViewRemindersClick(Self);
+    ViewInfo(mnuViewReminders);
 end;
 …
 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
 …
               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
 …
               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');
 …
           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
 …
       lstCIRNLocations.SendToBack;
       pnlCIRN.Hint := 'Click to display other facilities having data for this patient.';
+    end
+    end }
+  ViewInfo(mnuViewRemoteData);
 end;
 …
   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
 …
         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;
 …
               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;
 …
                              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;
 …
                          end;
               DGSR_NONE: begin
                            lstCIRNLocations.Checked[j+1] := true;
+                           lstCIRNLocations.Checked[j+2] := true;
                            TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
                            TRemoteSite(RemoteSites.SiteList[j]).LabClear;
 …
               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;
 …
                            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;
 …
                            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;
 …
               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;
 …
   else
     begin
       if iIndex > -1 then
+      if iIndex > 0 then
         begin
           iCur := iIndex - iAll;
 …
             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;
 …
 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;
 …
   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)';
 …
      FOSTFhintWindow.ReleaseHandle;
      FOSTFHintWndActive := False ;
+  end;
+  if FHintWinActive then   // graphing - hints on values
+  begin
+    FHintWin.ReleaseHandle;
+    FHintWinActive := false;
   end;
 end;
 …
   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
 …
   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;
 …
 end;
+procedure TfrmFrame.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+procedure TfrmFrame.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var
   NewTabIndex: integer;
 …
   //CQ2844: Toggle Remote Data button using Alt+R
    case Key of
+,114:  begin
+              if (ssAlt in Shift) then
+,114:  if (ssAlt in Shift) then
                  frmFrame.pnlCIRNClick(Sender);
-              end;
      end;
 …
 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;
 …
 begin
   if(pnlReminders.tag = HAVE_REMINDERS) then
+    mnuViewRemindersClick(Self);
+      ViewInfo(mnuViewReminders);
 end;
 procedure TfrmFrame.pnlPostingsClick(Sender: TObject);
 begin
   mnuViewPostingsClick(Self);
+  ViewInfo(mnuViewPostings);
 end;
 …
 end;
 function TfrmFrame.AllowCCOWContextChange(NewDFN: string): boolean;
+function TfrmFrame.AllowCCOWContextChange(var CCOWResponse: UserResponse; NewDFN: string): boolean;
 var
   PtData : IContextItemCollection;
 …
           IsProdAcct := User.IsProductionAccount;
+          {$IFDEF CCOWBROKER}
+          //IsProdAcct := RPCBrokerV.Login.IsProduction;  //not yet
+          {$ENDIF}
           PtDataItem2 := CoContextItem.Create();
           PtDataItem2.Set_Name('Patient.co.PatientName');                // Patient.Name
 …
       end;
+    CCOWResponse := response;
     if (response = UrCommit) then
     begin
 …
   Reason, HyperLinkReason: string;
   PtChanged: boolean;
+{$IFDEF CCOWBROKER}
+  UserChanged: boolean;
+{$ENDIF}
 begin
   // If the app would lose data, or have other problems changing context at
 …
   try
     CheckForDifferentPatient(aContextItemCollection, PtChanged);
+{$IFDEF CCOWBROKER}
+    CheckForDifferentUser(aContextItemCollection, UserChanged);
+{$ENDIF}
   except
     on E: Exception do HandleCCOWError(E.Message);
 …
   end;
+{$IFDEF CCOWBROKER}
+  if PtChanged or UserChanged then
+{$ELSE}
   if PtChanged then
+{$ENDIF}
     begin
       FCCOWContextChanging := True;
 …
   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);
 …
   end;
   IsProdAcct := User.IsProductionAccount;
+  {$IFDEF CCOWBROKER}
+  //IsProdAcct := RPCBrokerV.Login.IsProduction;  //not yet
+  {$ENDIF}
   // Get an item collection of the current context
   FCCOWError := False;
 …
   //PtDFN := FindBestCCOWDFN(PtName);
   PtDFN := FindBestCCOWDFN;
   if PtDFN <> '' then
+  if StrToInt64Def(PtDFN, 0) > 0 then
     begin
       // Select new patient based on context value
 …
       end;
       if User.IsProvider then Encounter.Provider := User.DUZ;
+      SetupPatient;
+      if not FFirstLoad then SetupPatient;
+      frmCover.UpdateVAAButton; //VAA
       DetermineNextTab;
       tabPage.TabIndex := PageIDToTab(NextTab);
 …
 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;
 …
   end;
   if FCCOWError then exit;
   if (AllowCCOWContextChange(Patient.DFN)) then
+  if (AllowCCOWContextChange(CCOWResponse, Patient.DFN)) then
     begin
       mnuFileResumeContext.Enabled := False;
 …
       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;
 …
 var
   data : IContextItemCollection;
   anItem : IContextItem;
+  anItem: IContextItem;
   PtDFN, PtName: string;
 begin
 …
   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);
 …
 procedure TfrmFrame.HideEverything;
 begin
+  FNoPatientSelected := TRUE;
   pnlNoPatientSelected.Visible := True;
   pnlNoPatientSelected.BringToFront;
 …
 procedure TfrmFrame.ShowEverything;
 begin
+  FNoPatientSelected := FALSE;
   pnlNoPatientSelected.Visible := False;
   pnlNoPatientSelected.SendToBack;
 …
 procedure TfrmFrame.pnlFlagClick(Sender: TObject);
 begin
+  ShowFlags;
+  //ShowFlags;
+  ViewInfo(mnuViewFlags);
 end;
 …
 procedure TfrmFrame.ScreenActiveFormChange(Sender: TObject);
+begin
+  if(assigned(FOldActiveFormChange)) then
+    FOldActiveFormChange(Sender);
+  //Focus the Form that Stays on Top after the Application Regains focus.
+  if FJustEnteredApp then
+    FocusApplicationTopForm;
+  FJustEnteredApp := false;
+end;
+procedure TfrmFrame.FocusApplicationTopForm;
 var
   I : integer;
 begin
+  //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
+: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;
+:begin
+        if (not User.IsReportsOnly) then // Reports Only tab.
+          mnuFileEncounterClick(Self);
+      end;
+:begin
+        ReportBox(DetailPrimaryCare(Patient.DFN), 'Primary Care', True);
+      end;
+:begin
+        if laMHV.Caption = 'MHV' then
+          ShellExecute(laMHV.Handle, 'open', PChar('http://www.myhealth.va.gov/'), '', '', SW_NORMAL);
+      end;
+: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;
+:begin
+        ShowFlags;
+      end;
+: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;
+:begin
+        ViewReminderTree;
+      end;
+:begin { displays the window that shows crisis notes, warnings, allergies, & advance directives }
+        ShowCWAD;
+      end;
+  end;
+end;
+procedure TfrmFrame.mnuViewInformationClick(Sender: TObject);
+begin
+  mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
+  mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
+  mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
+  mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
+  mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
+  mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
+  mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
+  mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
+  mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
+end;
 initialization
 …
 finalization
 end.

cprs/branches/foia-cprs/CPRS-Chart/fLabCollTimes.dfm

r459	r460
84	84	CalColors.MonthBackColor = clWindow
85	85	CalColors.TrailingTextColor = clGrayText
86		Date = 36507.~~5573663426~~
	86	Date = 36507.6194967361
87	87	ShowTodayCircle = False
88	88	TabOrder = 4

cprs/branches/foia-cprs/CPRS-Chart/fLabTests.dfm

-              r459
+              r460
   OldCreateOrder = True
   Position = poScreenCenter
+  OnClose = FormClose
   OnCreate = FormCreate
+  OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
 …
       ListItemsOnly = False
       LongList = True
+      LookupPiece = 0
       MaxLength = 0
       ParentShowHint = False
 …
       OnExit = cboTestsExit
       OnNeedData = cboTestsNeedData
+      CharsNeedMatch = 1
     end
     object cmdRemove: TButton

cprs/branches/foia-cprs/CPRS-Chart/fLabTests.pas

-              r459
+              r460
     procedure cboTestsExit(Sender: TObject);
     procedure cmdAddClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
 …
 implementation
 uses fLabs, ORFn, rLabs;
+uses fLabs, ORFn, rLabs, rMisc;
 {$R *.DFM}
 …
 end;
+procedure TfrmLabTests.FormShow(Sender: TObject);
+begin
+  SetFormPosition(Self);
+end;
+procedure TfrmLabTests.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  SaveUserBounds(Self);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fLabs.dfm

-              r459
+              r460
 inherited frmLabs: TfrmLabs
   Left = 193
   Top = 141
+  Left = 628
+  Top = 237
   Height = 387
   HelpContext = 8000
 …
   TextHeight = 13
   inherited shpPageBottom: TShape
     Top = 354
+    Top = 355
   end
   inherited sptHorz: TSplitter
     Height = 354
+    Height = 355
   end
   inherited pnlLeft: TPanel
     Height = 354
+    Height = 355
     object lblReports: TOROffsetLabel
       Left = 0
 …
     object lblDates: TOROffsetLabel
       Left = 0
       Top = 231
+      Top = 232
       Width = 97
       Height = 15
 …
     object lblHeaders: TOROffsetLabel
       Left = 0
       Top = 131
+      Top = 132
       Width = 97
       Height = 15
 …
       Top = 19
       Width = 97
       Height = 112
+      Height = 113
       Align = alClient
       ItemHeight = 13
 …
     object lstHeaders: TORListBox
       Left = 0
       Top = 146
+      Top = 147
       Width = 97
       Height = 52
 …
     object lstDates: TORListBox
       Left = 0
       Top = 246
+      Top = 247
       Width = 97
       Height = 108
 …
     object pnlOtherTests: TORAutoPanel
       Left = 0
       Top = 198
+      Top = 199
       Width = 97
       Height = 33
 …
   end
   inherited pnlRight: TPanel
     Height = 354
+    Height = 355
     OnResize = pnlRightResize
     object lblHeading: TOROffsetLabel
 …
     object pnlFooter: TORAutoPanel
       Left = 0
       Top = 334
+      Top = 335
       Width = 539
       Height = 20
 …
       TabOrder = 3
       Visible = False
+      object lblGraph: TLabel
+        Left = 0
+        Top = 72
+        Width = 370
+        Height = 13
+        Alignment = taCenter
+        Caption =
+          'Results may be available, but cannot be graphed. Please try an a' +
+          'lternate view.'
+      end
+      object lstTestGraph: TORListBox
+        Left = 0
+        Top = 0
+        Width = 97
+        Height = 85
+        Align = alLeft
+        ItemHeight = 13
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        OnClick = lstTestGraphClick
+        Caption = 'Tests Graphed'
+        ItemTipColor = clWindow
+        LongList = False
+        Pieces = '2'
+      end
       object chtChart: TChart
         Left = 97
 …
         end
       end
-      object lstTestGraph: TORListBox
-        Left = 0
-        Top = 0
-        Width = 97
-        Height = 85
-        Align = alLeft
-        ItemHeight = 13
-        ParentShowHint = False
-        ShowHint = True
-        TabOrder = 0
-        OnClick = lstTestGraphClick
-        Caption = 'Tests Graphed'
-        ItemTipColor = clWindow
-        LongList = False
-        Pieces = '2'
-      end
     end
     object memLab: TRichEdit
 …
       Top = 321
       Width = 539
       Height = 13
+      Height = 14
       Align = alClient
       Color = clCream
 …
       HotTrack = True
       Style = tsButtons
+      TabHeight = 16
       TabOrder = 1
       Visible = False
 …
       Top = 321
       Width = 539
       Height = 13
+      Height = 14
       TabStop = False
       Align = alClient
 …
       OnDocumentComplete = WebBrowser1DocumentComplete
       ControlData = {
 C000000B5370000580100000000000000000000000000000000000000000000
+C000000B5370000720100000000000000000000000000000000000000000000
         000000004C000000000000000000000001000000E0D057007335CF11AE690800
 B2E126208000000000000004C0000000114020000000000C000000000000046

cprs/branches/foia-cprs/CPRS-Chart/fLabs.pas

-              r459
+              r460
   fHSplit, StdCtrls, ExtCtrls, ORCtrls, ComCtrls, Grids, Buttons, fLabTest,
   fLabTests, fLabTestGroups, ORFn, TeeProcs, TeEngine, Chart, Series, Menus,
   uConst, ORDtTmRng, OleCtrls, SHDocVw, Variants;
+  uConst, ORDtTmRng, OleCtrls, SHDocVw, Variants, StrUtils;
 type
 …
     TabControl1: TTabControl;
     WebBrowser1: TWebBrowser;
+    lblGraph: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure DisplayHeading;
 …
     procedure Memo1KeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure UpdateRemoteStatus(aSiteID, aStatus: string);
   private
     { Private declarations }
 …
     function FMToDateTime(FMDateTime: string): TDateTime;
     procedure RequestPrint; override;
+    procedure ExtlstReportsClick(Sender: TObject; Ext: boolean);
 end;
 …
   uLabLocalReportData: TStringList;  //Storage for Local report data
   uLabRemoteReportData: TStringList; //Storage for Remote lab query
+  uUpdateStat: boolean;             //flag turned on when remote status is being updated
 implementation
 uses uCore, rLabs, rCore, rCover, rOrders, fLabPrint, fFrame, fRptBox, Printers,
      clipbrd, rReports, activex, mshtml, uAccessibleStringGrid;
+     clipbrd, rReports, rGraphs, activex, mshtml, uAccessibleStringGrid;
 const
 …
 var
   uFrozen: Boolean;
+  uGraphingActivated: Boolean;
   uRemoteCount: Integer;
   uHTMLDoc: string;
 …
 procedure TfrmLabs.FormCreate(Sender: TObject);
+var
+  aList: TStrings;
 begin
   inherited;
 …
   memLab.Color := ReadOnlyColor;
   uFrozen := False;
+  aList := TStringList.Create;
+  FastAssign(rpcGetGraphSettings, aList);
+  uGraphingActivated := aList.Count > 0;
+  aList.Free;
   uRemoteCount := 0;
   tmpGrid := TStringList.Create;
 …
   SerTest.GetHorizAxis.Increment := DateTimeStep[dtOneMinute];
   TAccessibleStringGrid.WrapControl(grdLab);
+end;
+procedure TfrmLabs.UpdateRemoteStatus(aSiteID, aStatus: string);
+var
+  j: integer;
+  s: string;
+  c: boolean;
+begin
+  if uUpdateStat = true then exit;                 //uUpdateStat also looked at in fFrame
+  uUpdateStat := true;
+  for j := 0 to frmFrame.lstCIRNLocations.Items.Count - 1 do
+    begin
+      s := frmFrame.lstCIRNLocations.Items[j];
+      c := frmFrame.lstCIRNLocations.checked[j];
+      if piece(s, '^', 1) = aSiteID then
+        begin
+          frmFrame.lstCIRNLocations.Items[j] := pieces(s, '^', 1, 3) + '^' + aStatus;
+          frmFrame.lstCIRNLocations.checked[j] := c;
+        end;
+    end;
+  uUpdateStat := false;
 end;
 …
   TabControl1.Tabs.Clear;
   TabControl1.Visible := false;
+  tmpGrid.Clear;
   with grdLab do
   begin
 …
 procedure TfrmLabs.lstReportsClick(Sender: TObject);
+begin
+  ExtlstReportsClick(Sender, false);
+end;
+procedure TfrmLabs.ExtlstReportsClick(Sender: TObject; Ext: boolean);
 var
   i,iCat: integer;
 …
          lblSpecimen.Caption := '';
        end;
        SelectTests(Font.Size);
+       if not Ext then SelectTests(Font.Size);
        if lstTests.Items.Count > 0 then
        begin
 …
          RedrawActivate(memLab.Handle);
          lstDatesClick(self);
          cmdOtherTests.SetFocus;
+         if not Ext then cmdOtherTests.SetFocus;
          cmdOtherTests.Default := true;
        end
        else uPrevReportIndex := lstReports.ItemIndex;
+       else lstReports.ItemIndex := uPrevReportIndex;
      end;
 : begin               // Worksheet
 …
          lblSpecimen.Caption := '';
        end;
        SelectTestGroups(Font.Size);
+       if not Ext then SelectTestGroups(Font.Size);
        if lstTests.Items.Count > 0 then
        begin
 …
          //chkZoomClick(self);
          lstDatesClick(self);
          cmdOtherTests.SetFocus;
+         if not Ext then cmdOtherTests.SetFocus;
          cmdOtherTests.Default := true;
        end
        else uPrevReportIndex := lstReports.ItemIndex;
+       else lstReports.ItemIndex := uPrevReportIndex;
      end;
 : begin               // Graph
+       if uPrevReportIndex <> lstReports.ItemIndex then
+        // do if graphing is activiated
+       if uGraphingActivated then
        begin
+         lblSingleTest.Caption := '';
+         lblSpecimen.Caption := '';
+       end;
+       SelectTest(Font.Size);
+       if (length(lblSingleTest.Caption) > 2) and (length(lblSpecimen.Caption) > 2) then
+         memLab.Clear;
+         chkBrowser;
+         FormResize(self);
+         memLab.Align := alClient;
+         CommonComponentVisible(false,false,false,false,false,false,false,false,false);
+         RedrawActivate(memLab.Handle);
+         StatusText('');
+         memLab.Lines.Insert(0, ' ');
+         memLab.Lines.Insert(1, 'Graphing activated');
+         memLab.SelStart := 0;
+         frmFrame.mnuToolsGraphingClick(self);  // make it just lab tests ??
+         //lstReports.ItemIndex := uPrevReportIndex;
+       end
+       else  // otherwise, do lab graph
        begin
+         CommonComponentVisible(false,false,true,true,true,true,false,false,true);
+         pnlChart.Visible := true;
+         chtChart.Visible := true;
+         pnlButtons.Visible := false;
+         pnlWorksheet.Visible := false;
+         pnlGraph.Visible := true;
+         memLab.Height := pnlRight.Height div 5;
+         memLab.Clear;
+         if uReportType = 'H' then
+         if uPrevReportIndex <> lstReports.ItemIndex then
+         begin
+           lblSingleTest.Caption := '';
+           lblSpecimen.Caption := '';
+         end;
+         if not Ext then SelectTest(Font.Size);
+         if (length(lblSingleTest.Caption) > 2) and (length(lblSpecimen.Caption) > 2) then
+         begin
+           CommonComponentVisible(false,false,true,true,true,true,false,false,true);
+           pnlChart.Visible := true;
+           chtChart.Visible := true;
+           pnlButtons.Visible := false;
+           pnlWorksheet.Visible := false;
+           pnlGraph.Visible := true;
+           memLab.Height := pnlRight.Height div 5;
+           memLab.Clear;
+           if uReportType = 'H' then
            begin
              WebBrowser1.Visible := true;
 …
              memLab.Visible := false;
            end
+           else
+           begin
+             WebBrowser1.Visible := false;
+             WebBrowser1.SendToBack;
+             memLab.Visible := true;
+             memLab.BringToFront;
+           end;
+           lstTestGraph.Items.Clear;
+           lstTestGraph.Width := 0;
+           FormResize(self);
+           RedrawActivate(memLab.Handle);
+           lblFooter.Caption := '';
+           chkGraphZoom.Checked := false;
+           chkGraphZoomClick(self);
+           chkGraph3DClick(self);
+           chkGraphValuesClick(self);
+           lstDatesClick(self);
+           if not Ext then cmdOtherTests.SetFocus;
+           cmdOtherTests.Default := true;
+         end
          else
+          begin
+            WebBrowser1.Visible := false;
+            WebBrowser1.SendToBack;
+            memLab.Visible := true;
+            memLab.BringToFront;
+          end;
+         lstTestGraph.Items.Clear;
+         lstTestGraph.Width := 0;
+         FormResize(self);
+         RedrawActivate(memLab.Handle);
+         lblFooter.Caption := '';
+         chkGraphZoom.Checked := false;
+         chkGraphZoomClick(self);
+         chkGraph3DClick(self);
+         chkGraphValuesClick(self);
+         lstDatesClick(self);
+         cmdOtherTests.SetFocus;
+         cmdOtherTests.Default := true;
+       end
+       else uPrevReportIndex := lstReports.ItemIndex;
+     end;
+  else
+           lstReports.ItemIndex := uPrevReportIndex;
+       end;
+     end
+    else // case
     begin
       //added to deal with other reports from file 101.24
 …
      end;
 : begin            // Graph
+       chtChart.BottomAxis.Automatic := true;
+       chkGraphZoom.Checked := false;
+       chkGraphZoomClick(self);
+       memLab.Clear;
+       uLabLocalReportData.Clear;
+       uLabRemoteReportData.Clear;
+       tmpList := TStringList.Create;
+       try
+         StatusText('Retrieving data for graph...');
+         tmpList.Assign(GetChart(Patient.DFN, date1, date2,
+           Piece(lblSpecimen.Caption, '^', 1),
+           Piece(lblSingleTest.Caption, '^', 1)));
+         if tmpList.Count > 1 then
+         begin
+           chtChart.Visible := true;
+           GraphChart(lblSingleTest.Caption, tmpList);
+           chtChart.ZoomPercent(ZOOM_PERCENT);
+           for i := strtoint(Piece(tmpList[0], '^', 1)) + 1 to tmpList.Count - 1
+             do memLab.Lines.Add(tmpList[i]);
+           if memLab.Lines.Count < 2 then
+             memLab.Lines.Add('<No comments on specimens.>');
+           memLab.SelStart := 0;
+         end
+         else
+         begin
+           if Piece(lblSpecimen.Caption, '^', 1) = '0' then
+             pnlChart.Caption := '<No results can be graphed for ' +
+               Piece(lblSingleTest.Caption, '^', 2) + ' in this date range.>'
+       if not uGraphingActivated then
+       begin
+         chtChart.BottomAxis.Automatic := true;
+         chkGraphZoom.Checked := false;
+         chkGraphZoomClick(self);
+         memLab.Clear;
+         uLabLocalReportData.Clear;
+         uLabRemoteReportData.Clear;
+         tmpList := TStringList.Create;
+         try
+           StatusText('Retrieving data for graph...');
+           tmpList.Assign(GetChart(Patient.DFN, date1, date2,
+             Piece(lblSpecimen.Caption, '^', 1),
+             Piece(lblSingleTest.Caption, '^', 1)));
+           if tmpList.Count > 1 then
+           begin
+             chtChart.Visible := true;
+             GraphChart(lblSingleTest.Caption, tmpList);
+             chtChart.ZoomPercent(ZOOM_PERCENT);
+             for i := strtoint(Piece(tmpList[0], '^', 1)) + 1 to tmpList.Count - 1
+               do memLab.Lines.Add(tmpList[i]);
+             if memLab.Lines.Count < 2 then
+               memLab.Lines.Add('<No comments on specimens.>');
+             memLab.SelStart := 0;
+             lblGraph.Visible := false;
+           end
            else
+             pnlChart.Caption := '<No results can be graphed for ' +
+               Piece(lblSingleTest.Caption, '^', 2)
+               + ' (' + Piece(lblSpecimen.Caption, '^', 2) +
+                 ') in this date range.>';
+           chtChart.Visible := false;
+           begin
+             lblGraph.Left := chtChart.Left + ((chtChart.Width - lblGraph.Width) div 2);
+             lblGraph.Top := 2;
+             lblGraph.Visible := true;
+             if Piece(lblSpecimen.Caption, '^', 1) = '0' then
+               pnlChart.Caption := '<No results can be graphed for ' +
+                 Piece(lblSingleTest.Caption, '^', 2) + ' in this date range.> '
+                 + 'Results may be available, but cannot be graphed. Please try an alternate view.'
+             else
+               pnlChart.Caption := '<No results can be graphed for ' +
+                 Piece(lblSingleTest.Caption, '^', 2)
+                 + ' (' + Piece(lblSpecimen.Caption, '^', 2) +
+                   ') in this date range.> '
+                 + 'Results may be available, but cannot be graphed. Please try an alternate view.';
+             chtChart.Visible := false;
+           end;
+         finally
+           tmpList.Free;
          end;
-       finally
-         tmpList.Free;
        end;
      end;
 …
   if valuecount = 0 then
   begin
+    lblGraph.Left := chtChart.Left + ((chtChart.Width - lblGraph.Width) div 2);
+    lblGraph.Top := 2;
+    lblGraph.Visible := true;
     if length(Piece(specimen, '^', 2)) > 0 then
       pnlChart.Caption := '<No results can be graphed for ' + serTest.Title + ' in this date range.>'
+      pnlChart.Caption := '<No results can be graphed for ' + serTest.Title + ' in this date range.> '
     else
       pnlChart.Caption := '<No results can be graphed for ' + Piece(test, '^', 2) + ' in this date range.>';
     chtChart.Visible := false;
+  end;
+  end
+  else
+    lblGraph.Visible := false;
   if not chkZoom.Checked then
   begin
 …
        memLab.Align := alBottom;
        grdLab.Align := alClient;
+       if tmpGrid.Count > 0 then HGrid(tmpGrid);
        if (grdLab.VisibleRowCount + 1) < grdLab.RowCount then
          grdLab.ColWidths[4] := grdLab.ColWidths[4] - 18;
 …
      end;
 : begin               // Graph
+       memLab.Height := pnlLeft.Height div 4;
+       memLab.Align := alBottom;
+       pnlChart.Top := pnlHeader.Height;
+       pnlChart.Align := alClient;
+       memLab.Height := pnlLeft.Height div 4;
+       memLab.Align := alBottom;
+       memLab.Repaint;
+       if not uGraphingActivated then
+       begin
+         memLab.Height := pnlLeft.Height div 4;
+         memLab.Align := alBottom;
+         pnlChart.Top := pnlHeader.Height;
+         pnlChart.Align := alClient;
+         memLab.Height := pnlLeft.Height div 4;
+         memLab.Align := alBottom;
+         memLab.Repaint;
+       end;
      end;
 : begin               // Anatomic Path
 …
                     Timer1.Enabled := False;
                     TRemoteSite(Items[i]).LabQueryStatus := '-1^Timed out';
+                    UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Timed out');
                     StatusText('');
                     TabControl1.OnChange(nil);
 …
         begin
           TRemoteSite(Items[i]).LabClear;
+          if (LeftStr(TRemoteSite(Items[i]).SiteID, 5) = '200HD') then
+          begin
+            TRemoteSite(Items[i]).LabQueryStatus := '1^Not Included';
+            UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'NOT INCLUDED');
+            TabControl1.OnChange(nil);
+            continue;
+          end;
           TRemoteSite(Items[i]).CurrentLabQuery := 'Lab' + Patient.DFN + ';' + Patient.ICN +
             '^' + IntToStr(AItem) + '^' + IntToStr(AReportID) + '^^' + ARpc + '^' + AHSType +
 …
                 TRemoteSite(Items[i]).LabRemoteHandle := '';
                 TRemoteSite(Items[i]).LabQueryStatus := '1^Done';
+                UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Done');
                 TabControl1.OnChange(nil);
               end
 …
               end;
               if Dest[0] = '' then
+                TRemoteSite(Items[i]).LabQueryStatus := '-1^Communication error'
+                begin
+                  TRemoteSite(Items[i]).LabQueryStatus := '-1^Communication error';
+                  UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Communication error');
+                end
               else
                 begin
                   TRemoteSite(Items[i]).LabRemoteHandle := Dest[0];
                   TRemoteSite(Items[i]).LabQueryStatus := '0^initialization...';
+                  UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Initialization');
                   Timer1.Enabled := True;
                   StatusText('Retrieving reports from '

cprs/branches/foia-cprs/CPRS-Chart/fMHTest.dfm

r459	r460
12	12	Font.Name = 'MS Sans Serif'
13	13	Font.Style = []
14		~~FormStyle = fsStayOnTop~~
15	14	KeyPreview = True
16	15	OldCreateOrder = False

cprs/branches/foia-cprs/CPRS-Chart/fMHTest.pas

-              r459
+              r460
     procedure GotoQ(x: integer);
   public
+  MHTestComp: string;
+  MHA3: boolean;
   end;
 …
       end;
     end;
+      if frmMHTest.MHTestComp = '' then frmMHTest.MHTestComp := '0';
+      Result := Result + U + frmMHTest.MHTestComp;
+      if Result = U then Result := '';
   finally
     frmMHTest.Free;
 …
   try
     TstData.Assign(LoadMentalHealthTest(TestName));
+    if TstData.Strings[0] = '1' then MHA3 := True
+    else MHA3 := False;
     Screen.Cursor := crHourGlass;
     try
       TstData.Add('99999;X;0');
       idx := 0;
+      idx := 1;
       FMaxLines := 0;
       FInfoText := '';
 …
           if(Spec = 'I') then
           begin
+            AddTxt2Str(FInfoText);
+           if MHA3 = True then AddTxt2Str(QObj.FText)
+           else
+           AddTxt2Str(FInfoText);;
           end
           else
 …
     FBuildingControls := TRUE;
     try
+      if(not assigned(FInfoLabel)) then
+    Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
+    Y := gap - sbMain.VertScrollBar.Position;
+    if MHA3 = False then
+     begin
+     if(not assigned(FInfoLabel)) then
       begin
         FInfoLabel := TMemo.Create(Self);
 …
       end;
       BoundsRect := FInfoLabel.BoundsRect;
       Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
       Y := Gap - sbMain.VertScrollBar.Position;
+      //Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
+      //Y := gap - sbMain.VertScrollBar.Position;
       BoundsRect.Top := Y;
       BoundsRect.Right := BoundsRect.Left + Wide;
 …
       for i := 0 to FObjs.Count-1 do
         TMHQuestion(FObjs[i]).BuildControls(Y, Wide);
+     end
+     else
+       begin
+         inc(Y, 1);
+         for i := 0 to FObjs.Count-1 do TMHQuestion(FObjs[i]).BuildControls(Y, Wide);
+       end;
     finally
       FBuildingControls := FALSE;
 …
 var
   i, XCnt, First: integer;
   msg: string;
+  msg, ans, TestStatus: string;
 begin
   msg := '';
+  ans := '';
   XCnt := 0;
   First := -1;
+  TestStatus := '2';
+  MHTestComp := '2';
   for i := 0 to FObjs.Count-1 do
   begin
+    ans := ans + TMHQuestion(Fobjs[i]).FAnswer;
     if(TMHQuestion(FObjs[i]).FAnswer = Skipped) then
     begin
 …
     end;
   end;
+  if(XCnt = FObjs.Count) then ModalResult := mrOK;
+  TestStatus := VerifyMentalHealthTestComplete(Self.Caption, ans);
+  if Piece(TestStatus,U,1) <> '2' then
+    begin
+      if Piece(TestStatus,U,1)='1' then
+        begin
+          ModalResult := mrOK;
+          MHTestComp := '1';
+          EXIT;
+        end;
+      if Piece(TestStatus,U,1)='0' then
+        begin
+          MHTestComp := '0';
+          msg := Piece(TestStatus,u,2);
+          msg := 'The following questions have not been answered:' + CRLF + CRLF + '    ' + msg;
+          if(InfoBox(msg + CRLF + CRLF + 'Answer skipped questions?', 'Skipped Questions',
+           MB_YESNO or MB_ICONQUESTION) = IDYES) then GotoQ(First)
+          else
+            ModalResult := mrOK;
+            EXIT;
+        end;
+    end;
   if(XCnt = 0) then
     ModalResult := mrOK

cprs/branches/foia-cprs/CPRS-Chart/fMeds.dfm

-              r459
+              r460
 inherited frmMeds: TfrmMeds
   Left = 255
   Top = 53
   Width = 734
   Height = 681
+  Left = 93
+  Top = 250
+  Width = 709
+  Height = 686
   HelpContext = 3000
+  VertScrollBar.Visible = False
   Caption = 'Medications Page'
   HelpFile = 'qnoback'
   Menu = mnuMeds
+  Visible = True
   OnDestroy = FormDestroy
+  OnMouseUp = FormMouseUp
   OnResize = FormResize
   OnShow = FormShow
 …
   object splitTop: TSplitter
     Left = 0
     Top = 213
     Width = 726
+    Top = 421
+    Width = 701
     Height = 4
     Cursor = crVSplit
 …
   object pnlBottom: TORAutoPanel
     Left = 0
     Top = 217
     Width = 726
     Height = 418
+    Top = 425
+    Width = 701
+    Height = 207
     Align = alBottom
-    Caption = 'pnlBottom'
     Constraints.MinHeight = 40
     Ctl3D = False
 …
     object splitBottom: TSplitter
       Left = 1
       Top = 204
       Width = 724
+      Top = 102
+      Width = 699
       Height = 4
       Cursor = crVSplit
 …
       Constraints.MaxHeight = 4
       Constraints.MinHeight = 4
       MinSize = 60
+      MinSize = 100
       ParentColor = False
       OnMoved = splitBottomMoved
 …
     object pnlMedIn: TPanel
       Left = 1
       Top = 208
       Width = 724
       Height = 209
+      Top = 106
+      Width = 699
+      Height = 100
       Align = alBottom
+      Caption = 'pnlMedIn'
+      Constraints.MinHeight = 40
+      Constraints.MinHeight = 100
       TabOrder = 0
       object lstMedsIn: TCaptionListBox
 …
         Left = 1
         Top = 17
         Width = 722
         Height = 191
+        Width = 697
+        Height = 82
         Style = lbOwnerDrawVariable
         Align = alClient
         Color = clCream
+        Constraints.MinHeight = 65
         Ctl3D = False
         ItemHeight = 13
 …
         Left = 1
         Top = 1
         Width = 722
+        Width = 697
         Height = 16
         BiDiMode = bdLeftToRight
         DragReorder = False
-        Constraints.MaxHeight = 16
         Constraints.MinHeight = 16
         Sections = <
 …
             MinWidth = 20
             Text = 'Inpatient Medications'
             Width = 440
+            Width = 100
           end
           item
 …
           item
             ImageIndex = -1
+            MinWidth = 16
             Text = 'Location'
             Width = 60
+            Width = 20
           end>
+        OnSectionClick = hdrMedsInSectionClick
         OnSectionResize = hdrMedsInSectionResize
         ParentBiDiMode = False
+        OnMouseDown = hdrMedsInMouseDown
+        OnMouseUp = hdrMedsInMouseUp
         OnResize = hdrMedsInResize
       end
 …
       Left = 1
       Top = 1
       Width = 724
       Height = 203
+      Width = 699
+      Height = 101
       Align = alClient
       Caption = 'pnlNonVA'
 …
         Left = 1
         Top = 17
         Width = 722
         Height = 185
+        Width = 697
+        Height = 83
         Style = lbOwnerDrawVariable
         Align = alClient
 …
         Left = 1
         Top = 1
         Width = 722
+        Width = 697
         Height = 16
         BiDiMode = bdLeftToRight
         DragReorder = False
-        Constraints.MaxHeight = 16
         Constraints.MinHeight = 16
         Sections = <
 …
             MinWidth = 20
             Text = 'Non-VA Medications'
             Width = 516
+            Width = 100
           end
           item
 …
             Width = 62
           end>
+        OnSectionResize = hdrMedsInSectionResize
+        OnSectionClick = hdrMedsNonVASectionClick
+        OnSectionResize = hdrMedsNonVASectionResize
         ParentBiDiMode = False
+        OnMouseDown = hdrMedsNonVAMouseDown
+        OnMouseUp = hdrMedsNonVAMouseUp
         OnResize = hdrMedsNonVAResize
       end
 …
     Left = 0
     Top = 0
     Width = 726
     Height = 213
+    Width = 701
+    Height = 421
     Align = alClient
-    Caption = 'pnlTop'
     Ctl3D = True
     ParentCtl3D = False
 …
       Left = 1
       Top = 17
       Width = 724
       Height = 195
+      Width = 699
+      Height = 403
       Style = lbOwnerDrawVariable
       Align = alClient
       Color = clCream
+      Constraints.MinHeight = 40
       Ctl3D = False
       ItemHeight = 13
 …
       Left = 1
       Top = 1
       Width = 724
+      Width = 699
       Height = 16
+      BiDiMode = bdLeftToRight
       DragReorder = False
-      Constraints.MaxHeight = 100
       Constraints.MinHeight = 16
       Sections = <
 …
           MinWidth = 20
           Text = 'Outpatient Medications'
           Width = 400
+          Width = 100
         end
         item
 …
           Width = 78
         end>
+      OnSectionClick = hdrMedsOutSectionClick
       OnSectionResize = hdrMedsOutSectionResize
+      ParentBiDiMode = False
+      OnMouseDown = hdrMedsOutMouseDown
+      OnMouseUp = hdrMedsOutMouseUp
       OnResize = hdrMedsOutResize
     end
 …
         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 Z2: TMenuItem
         Caption = '-'
 …
       OnClick = mnuActNewClick
     end
+    object mnuOptimizeFields: TMenuItem
+      Caption = 'Adjust Field Size'
+      Visible = False
+      OnClick = mnuOptimizeFieldsClick
+    end
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fMeds.pas

-              r459
+              r460
     lstMedsOut: TCaptionListBox;
     hdrMedsOut: THeaderControl;
+    mnuViewInformation: TMenuItem;
+    mnuViewDemo: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewReminders: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
+    mnuViewPostings: TMenuItem;
+    mnuOptimizeFields: TMenuItem;
     procedure mnuChartTabClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
 …
     procedure mnuActRefillClick(Sender: TObject);
     procedure mnuActClick(Sender: TObject);
-    procedure pnlMedOut1Resize(Sender: TObject);
     procedure mnuViewHistoryClick(Sender: TObject);
     procedure popMedPopup(Sender: TObject);
 …
     procedure splitBottomMoved(Sender: TObject);
     procedure splitTopMoved(Sender: TObject);
+    procedure hdrMedsOutMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure hdrMedsNonVAMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure hdrMedsInMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure hdrMedsOutMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure hdrMedsNonVAMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure hdrMedsInMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    //procedure ActivateDeactiveRenew(AListBox: TListBox);
+    procedure ViewInfo(Sender: TObject);
+    procedure mnuViewInformationClick(Sender: TObject);
+    procedure mnuOptimizeFieldsClick(Sender: TObject);
+    procedure hdrMedsOutSectionClick(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure hdrMedsNonVASectionClick(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure hdrMedsInSectionClick(HeaderControl: THeaderControl;
+      Section: THeaderSection);
   private
     FIterating: Boolean;
 …
     function GetMedList(Control: TWinControl): TList;
     function GetPharmacyOrders(Control: TWinControl): TStringList;
+    function PatientStatusChanged: boolean;
+    procedure ClearChildODList;
   public
-    function PctOfTotalHeight(thisPanel: TPanel) : integer;
     procedure RefreshMedLists;
     procedure ClearPtData; override;
 …
     property ParentComplexOrderID: string read FParentComplexOrderID  write FParentComplexOrderID;
     procedure InitfMedsSize;
+  end;
+    procedure SetSectionWidths(Sender: TObject);
+    function GetTotalSectionsWidth(Sender: TObject) : integer;
+    function CheckMedStatus(ActiveList: TListBox): boolean;
+  end;
+type
+  arOrigOutPtSecWidths = array[0..6] of integer; //CQ7586
+  arOrigInPtSecWidths = array[0..4] of integer; //CQ7586
+  arOrigNonVASecWidths = array[0..3] of integer; //CQ7586
 var
 …
 //  LargePanelPortion: Integer;
 //  SmallPanelPortion: integer;
+  OrigOutPtSecWidths: arOrigOutPtSecWidths; //CQ7586
+  OrigInPtSecWidths : arOrigInPtSecWidths; //CQ7586
+  OrigNonVASecWidths: arOrigNonVASecWidths; //CQ7586
   MedOutSize:  double;
   s: string;
 …
   totalHeight: integer;
-  MedOutPctOfTotalHeight: integer;
-  NonVAPctOfTotalHeight: integer;
-  MedInpctOfTotalHeight : integer;
   resizedTotalHeight: integer;
 …
   splitterTop: TSplitter;
+  splitterBottom: TSplitter;
+  splitterBottom: TSplitter;
+  oldFont: integer; //CQ9182
 implementation
+uses uCore, fFrame, fRptBox, uOrders, fODBase, fOrdersDC, fOrdersHold,
+     fOrdersRenew, fOMNavA, fOrdersRefill, fMedCopy, fOrders, fODChild, rODBase;
+uses uCore, rCore, fFrame, fRptBox, uOrders, fODBase, fOrdersDC, fOrdersHold,
+     fOrdersRenew, fOMNavA, fOrdersRefill, fMedCopy, fOrders, fODChild, rODBase,
+     StrUtils, fActivateDeactivate;
 {$R *.DFM}
 const
+  SMALL_PANEL = 20;
+  LARGE_PANEL = 60;
   COL_MEDNAME = 1;
   DG_OUT = 0;
 …
 begin
   inherited ClearPtData;
+  ClearChildODList;
   lstMedsIn.Clear;
   lstMedsOut.Clear;
 …
   uPharmacyOrdersOut.Clear;
   uMedListNonVA.Clear;
+  totalHeight := 0;
 end;
 …
 const
  RATIO_SMALL = 0.13; //0.1866;
 begin
   inherited DisplayPage;
 …
   if Patient.Inpatient then
      begin
+  begin
      splitBottom.Align := alNone;
+     hdrMedsIn.Align := alNone;
+     lstMedsIn.Parent := pnlTop;
+     lstMedsIn.Align := alClient;
+     hdrMedsIn.Align  := alNone;
+     lstMedsIn.Align   := alNone;
+     lstMedsIn.Parent  := pnlTop;
+     lstMedsIn.Align   := alClient;
      lstMedsOut.Parent := pnlMedIn;
      hdrMedsIn.Parent := pnlTop;
      hdrMedsIn.Align := alTop;
+     hdrMedsIn.Parent  := pnlTop;
+     hdrMedsIn.Align   := alTop;
      hdrMedsOut.Parent := pnlMedIn;
+     splitBottom.Align     := alBottom;
+     end
+     splitBottom.Align := alBottom;
+     lstMedsIn.Height  := lstMedsIn.Height - 1; // added to cause repaint if user makes area small
+     lstMedsIn.Height  := lstMedsIn.Height + 1; // added to cause repaint if user makes area small.
+     lstMedsOut.Height := lstMedsOut.Height + 1;  // added to cause repaint if user makes area small
+     lstMedsOut.Height := lstMedsOut.Height - 1; // added to cause repaint if user makes area small
+  end
   else
      begin
+     splitBottom.Align := alNone;
+     hdrMedsIn.Align := alNone;
+     lstMedsIn.Parent := pnlMedIn;
+     lstMedsOut.Parent := pnlTop;
+     lstMedsOut.Align := alClient;
+     hdrMedsIn.Parent := pnlMedIn;
+     hdrMedsIn.Align := alTop;
+     hdrMedsOut.Parent := pnlTop;
+     splitBottom.Align     := alBottom;
+        splitBottom.Align := alNone;
+        hdrMedsIn.Align   := alNone;
+        lstMedsIn.Parent  := pnlMedIn;
+        lstMedsOut.Parent := pnlTop;
+        lstMedsOut.Align  := alClient;
+        hdrMedsIn.Parent  := pnlMedIn;
+        hdrMedsIn.Align   := alTop;
+        hdrMedsOut.Parent := pnlTop;
+        splitBottom.Align := alBottom;
+        lstMedsIn.Height  := lstMedsIn.Height - 1; // added to cause repaint if user makes area small
+        lstMedsIn.Height  := lstMedsIn.Height + 1; // added to cause repaint if user makes area small.
+        lstMedsOut.Height := lstMedsOut.Height + 1;  // added to cause repaint if user makes area small
+        lstMedsOut.Height := lstMedsOut.Height - 1; // added to cause repaint if user makes area small
      end;
+  RefreshMedLists;
+   RefreshMedLists;
 end;
 …
   if AnOrder <> nil then
   begin
+    //AGP Change 26.24 CQ 7150 fixes the problem with non-va meds initially showing up in the inpatient section
     if uDGrp[DG_OUT] = AnOrder.DGroup then AMedList := uMedListOut;
+    for i := 1 to 6 do if uDGrp[i] = AnOrder.DGroup then AMedList := uMedListIn;
+    If uDGrp[DG_NVA] = AnOrder.DGroup then AMedList := uMedListNonVA;
+    if (AMedList <> uMedListOut) and (AMedList <> uMedListNonVA) then
+      for i := 1 to 6 do if uDGrp[i] = AnOrder.DGroup then AMedList := uMedListIn;
   end;
   case OrderAction of
 …
       end
       else uPendingChanges.Add(Piece(AnOrder.ActionOn, ';', 1) + '=' +
+                               Piece(AnOrder.ActionOn, '=', 2) + U + AnOrder.ID + '^^' + AnOrder.OrderLocName);
+              Piece(AnOrder.ActionOn, '=', 2) + U + AnOrder.ID + '^^' + AnOrder.OrderLocName);
     end; {if AMedList}
   ORDER_CPLXRN:
 …
 begin
   inherited SetFontSize(FontSize);
+  mnuOptimizeFieldsClick(self);
   if Patient.DFN <> '' then
     RefreshMedLists;
 …
 var
  medsSplitFnd : boolean;
-  panelBottom, panelMedIn : integer;
   retList : TStringList;
   i: integer;
 …
   ChildODList := TStringList.Create;
   //DETECT 1st TIME USER.
   //If first time user (medSplitFound=false), then manually set panel heights.
 …
         if strPos(PChar(x),PChar(MEDS_SPLIT_FORM)) <> nil then
            begin
            medsSplitFnd := TRUE;
+           medsSplitFnd := False;//TRUE;
            Break;
            end;
 …
           pnlBottom.Height := frmMeds.Height div 2;
           pnlMedIn.Height := pnlBottom.Height div 2;
-          panelBottom := pnlBottom.Height;
-          panelMedIn  := pnlMedIn.Height;
         end;
      end;
+  //CQ9622
+  if hdrMedsIn.Sections[1].Width < 100 then
+     begin
+     hdrMedsIn.Sections[1].Width := 100;
+     hdrMedsIn.Refresh;
+     end;
+  if hdrMedsNonVA.Sections[1].Width < 100 then
+     begin
+     hdrMedsNonVA.Sections[1].Width := 100;
+     lstMedsNonVA.Refresh;
+     end;
+  if hdrMedsOut.Sections[1].Width < 100 then
+     begin
+     hdrMedsOut.Sections[1].Width := 100;
+     hdrMedsOut.Refresh;
+     end;
+  //end CQ9622
 end;
 …
 begin
   inherited;
+  ClearChildODList;
   ClearMedList(uMedListIn);
   ClearMedList(uMedListOut);
 …
   result := '';
   Detail := '';
+  if AMed.Status = 'Suspended' then AMed.Status := 'Active/Susp'; //HDS00007547 PSI-03-033 Interim Solution.
   case Column of
 : result := GetActionText(AMed);
 : result := GetInstructText(AMed, Detail);
 : result := FormatFMDateTime('mm/dd/yy', AMed.StopDate);
 : result := AMed.Status;
+: result :=  AMed.Status;
 :
      begin
 …
     TAG_INPT:  result := hdrMedsIn;
+    else       result := nil;
+    else
+    result := nil;
   end;
 end;
 …
     TAG_NONVA: result := uMedListNonVA;
     TAG_INPT:  result := uMedListIn;
+    else       result := nil;
+    else
+    result := nil;
   end;
 end;
 …
     TAG_NONVA: result := uNonVAOrdersOut;
     TAG_INPT:  result := uPharmacyOrdersIn;
   else
+  else
      result := nil;
   end;
 …
 end;
+procedure TfrmMeds.lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
+  State: TOwnerDrawState);
+procedure TfrmMeds.lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
 var
   ReturnHt: Integer;
 …
       begin
         Canvas.Font.Style := [fsBold];
+        if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then
+        //AGP Change 26.29 CQ #8188 Fix for highlighted new meds displaying blue font with a blue background.
+        if odSelected in State  then
+            begin
+              Canvas.Brush.Color := clHighlight;
+              Canvas.Font.Color := clHighlightText;
+              //Canvas.FillRect(ARect);
+              Canvas.Font.Color := clWhite;
+           end;
+        if (ColorToRGB(clWindowText) = ColorToRGB(clBlack)) and (Canvas.Font.Color <> clWhite) then
           Canvas.Font.Color := clBlue;
         if (Length(Piece(AnAction,'^',4)) > 0) then
 …
           ARect := ItemRect(Index);
           ARect.Left  := RectLeft + 2;
+          ARect.Right := ARect.Left + AHeader.Sections[i].Width - 6;
+          ARect.Right := (ARect.Left + AHeader.Sections[i].Width - 6);
+          //if ((ARect.Right - ARect.Left) < 100) then
+              //ARect.Right := ARect.Right + (100 - (ARect.Left + AHeader.Sections[i].Width - 6));
           ReturnHt  := DrawText(Canvas.Handle, PChar(x), Length(x), ARect, DT_LEFT or DT_NOPREFIX
                         or DT_WORDBREAK);
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   with lstMedsOut do for i := 0 to Items.Count -1 do
     Selected[i] := false;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   with lstMedsIn do for i := 0 to Items.Count -1 do
     Selected[i] := false;
 …
 end;
+procedure TfrmMeds.hdrMedsOutSectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+procedure TfrmMeds.hdrMedsOutSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
 begin
   inherited;
 …
 end;
+procedure TfrmMeds.hdrMedsInSectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+procedure TfrmMeds.hdrMedsInSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
 begin
   inherited;
 …
     IntegralHeight := not IntegralHeight;  // listbox window to be recreated
   end;
   RedrawActivate(Self.Handle);
   lstMedsIn.Invalidate;
 …
 begin
   inherited;
   //frmFrame.UpdatePtInfoOnRefresh;
+  if PatientStatusChanged then exit;
   if lstMedsOut.SelCount > 0 then
   begin
 …
     begin
       ValidateSelected(ActiveList, OA_DC, TX_NO_DC, TC_NO_DC);
+      //ActivateDeactiveRenew(ActiveList); AGP 26.53 TURN OFF UNTIL FINAL DECISION CAN BE MADE
       MakeSelectedList(ActiveList, SelectedList);
       if ExecuteDCOrders(SelectedList,DelEvt) then
 …
   if ActiveList = nil then Exit;
   SelectedList := TList.Create;
+  if CheckMedStatus(ActiveList) = True then Exit;
   try
     FIterating := True;
 …
   try
     FIterating := True;
+    if CheckMedStatus(ActiveList) = True then Exit;
     if AuthorizedUser and EncounterPresent and LockedForOrdering then
     begin
 …
   ChangeIFNList := TStringList.Create;
   try
+    FIterating := true;
+    if CheckMedStatus(ActiveList) = True then Exit;
+    ValidateSelected(ActiveList, OA_CHANGE, TX_NO_CHANGE, TC_NO_CHANGE);
     MakeSelectedList(Activelist, SelectedList);
     with SelectedList do for i := 0 to Count - 1 do ChangeIFNList.Add(TOrder(Items[i]).ID);
 …
   DoesDestEvtOccur := False;
   ActiveList := ListSelected(TX_NOSEL);
+  if CheckMedStatus(ActiveList) = True then Exit;
   if ActiveList = nil then Exit;
   NewOrderCreated := False;
 …
   if ActiveList = nil then Exit;
   SelectedList := TList.Create;
+  if CheckMedStatus(ActiveList) = True then Exit;
   try
     FIterating := True;
 …
        begin
          Selected[i] := False;
          MessageDlg('You can not renew inpatient medication order on a clinic location for selected inpatient.', mtWarning, [mbOK], 0);
+         MessageDlg('You cannot renew inpatient medication orders from a clinic location for selected patient.', mtWarning, [mbOK], 0);
        end;
     CurID := uPendingChanges.Values[Piece(Piece(SomePharmacyOrders[i], U, 2), ';', 1)];
 …
         end;
       end;
-      idx := -1;
       idx := ChildODList.IndexOf(AnOrder.ID);
       if idx > - 1 then
 …
 procedure TfrmMeds.SynchListToOrders(AListBox: TListBox; AList: TList);
+{ shows selected med orders as selected }
+//var
+//  i, j: Integer;
+//  AMedListRec: TMedListRec;
+//  AnOrder: TOrder;
+begin
+//  with AListBox do for i := 0 to Items.Count - 1 do
+//  begin
+//    AMedListRec := TMedListRec(AListBox.Items.Objects[i]);
+//    with AList do for j := 0 to Count - 1 do
+//    begin
+//      AnOrder := TOrder(AList.Items[j]);
+//      if Piece(AMedListRec.OrderID, ';', 1) = Piece(AnOrder.ID, ';', 1) then
+//      begin
+//        //AMedListRec.Instruct := AMedListRec.Instruct + ' * EDITED *';
+//        //AMedListRec.Action := MED_NEW;  //*KCM*
+//        //AListBox.Selected[i] := True;   // resets valid selections to indicate changes  //*KCM*
+//      end;
+//    end;
+//  end;
+begin
   AListBox.Invalidate;
 end;
-procedure TfrmMeds.pnlMedOut1Resize(Sender: TObject);
-begin
-  inherited;
-  //if pnlMedOut.Height < 20 then pnlMedOut.Height := 20;
-end;
 procedure TfrmMeds.popMedPopup(Sender: TObject);
 begin
   inherited;
   //frmFrame.UpdatePtInfoOnRefresh;
+  if PatientStatusChanged then exit;
 end;
 …
 begin
   inherited;
   //frmFrame.UpdatePtInfoOnRefresh;
+  if PatientStatusChanged then exit;
 end;
 …
 begin
   inherited;
+  if PatientStatusChanged then exit;
   with lstMedsIn do for i := 0 to Items.Count -1 do
      Selected[i] := false;
 …
 end;
+procedure TfrmMeds.hdrMedsNonVASectionResize(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+procedure TfrmMeds.hdrMedsNonVASectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
 begin
   inherited;
 …
 end;
+function TfrmMeds.PctOfTotalHeight(thisPanel: TPanel) : integer;
+var
+  pctOfTotal: real;
+begin
+  pctOfTotal := ((thisPanel.Height / totalHeight) * 100);
+  Result := Round(pctOfTotal);
+function FontChanged : boolean;
+//CQ9182:  SEE ALSO procedure TfrmFrame.mnuFontSizeClick()
+begin
+  Result := false;
+  if Assigned(frmMeds) then
+  begin
+     if fMeds.oldFont = 0 then Result := False
+     else
+        if (fMeds.oldFont <> MainFontSize)  then
+           Result := true;
+  end;
 end;
 procedure TfrmMeds.FormResize(Sender: TObject);
+var
+ maxPanelHeight: integer;
 begin
   inherited;
   if Assigned(frmMeds) then
+  begin
+    //CQ9522 v26.51 Make sure all three panels are visible regardless of font size
+    if Assigned(self.Parent) then
      begin
+     //Adjust splitter positions to always be in view, regardless of window size
+     if (pnlBottom.Height > frmMeds.Height-50) then pnlBottom.Height := frmMeds.Height-50;
+     if (pnlMedIn.Height > pnlBottom.Height-50) then pnlMedIn.Height := pnlBottom.Height-50;
+     end;
+      if self.Height > parent.ClientHeight then
+         self.Height := parent.ClientHeight;
+      maxPanelHeight := round((parent.ClientHeight-20)/3);
+      if pnlTop.Height + pnlBottom.Height > parent.ClientHeight then
+        begin
+          pnlBottom.Height := maxPanelHeight*2;
+          pnlTop.Height := maxPanelHeight;
+        end;
+     end;    //assigned(self.parent)
+  end;
 end;
 …
   inherited;
   with hdrMedsOut do
+     begin
+     if Height < 16 then Height := 16;
+     if Height > 16 then Height := 16;
+  begin
+     Height := TextHeightByFont(Font.Handle, Sections[0].Text);
      Invalidate;
      end;
+  end;
 end;
 …
   inherited;
   with hdrMedsNonVA do
+     begin
+     if Height < 16 then Height := 16;
+     if Height > 16 then Height := 16;
+  begin
+     Height := TextHeightByFont(Font.Handle, Sections[0].Text);
      Invalidate;
      end;
+  end;
 end;
 …
   inherited;
   with hdrMedsIn do
+     begin
+     if Height < 16 then Height := 16;
+     if Height > 16 then Height := 16;
+  begin
+     Height := TextHeightByFont(Font.Handle, Sections[0].Text);
      Invalidate;
      end;
+  end;
 end;
 …
 begin
   inherited;
   if splitBottom.Height > 5 then splitBottom.Height := 5;
+  splitBottom.Height := 5;
 end;
 …
 begin
   inherited;
   if splitTop.Height > 5 then splitTop.Height := 5;
+   splitTop.Height := 5;
 end;
 …
         x := retList.strings[i];
         if strPos(PChar(x),PChar(MEDS_SPLIT_FORM)) <> nil then
            begin
+        begin
            medsSplitFnd := TRUE;
            Break;
 …
 end;
+function TfrmMeds.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;
+   //GE CQ9537  - Change message text
+  if Patient.Inpatient <> IsInpatientNow then
+  begin
+    if (not Patient.Inpatient) then MessageDlg(msgTxt3 + msgTxt4, mtWarning, [mbOK], 0);
+    if Patient.Inpatient then ptSts := 'Inpatient to Outpatient.';
+    MessageDlg(msgTxt1 + ptSts + #13#10#13 + msgTxt2, mtWarning, [mbOK], 0);
+    frmFrame.mnuFileRefreshClick(Application);
+    Result := True;
+  end;
+end;
+function TfrmMeds.GetTotalSectionsWidth(Sender: TObject) : integer;
+//CQ7586
+//Return stored values of column widths
+var
+  i: integer;
+begin
+  Result := 0;
+  if (Sender as THeaderControl).Name = 'hdrMedsOut' then
+     for i := 0 to hdrMedsOut.Sections.Count - 1 do
+        Result := Result + hdrMedsOut.Sections[i].Width;
+  if (Sender as THeaderControl).Name = 'hdrMedsIn' then
+     for i := 0 to hdrMedsIn.Sections.Count - 1 do
+        Result := Result + hdrMedsIn.Sections[i].Width;
+  if (Sender as THeaderControl).Name = 'hdrMedsNonVA' then
+     for i := 0 to hdrMedsNonVA.Sections.Count - 1 do
+        Result := Result + hdrMedsNonVA.Sections[i].Width;
+end;
+procedure TfrmMeds.SetSectionWidths(Sender: TObject);
+//CQ7586
+//Copy values of column widths into array variables.
+var
+  i: integer;
+begin
+  if (Sender as THeaderControl).Name = 'hdrMedsOut' then
+     for i := 0 to hdrMedsOut.Sections.Count - 1 do
+        OrigOutPtSecWidths[i] := hdrMedsOut.Sections[i].Width;
+  if (Sender as THeaderControl).Name = 'hdrMedsIn' then
+     for i := 0 to hdrMedsIn.Sections.Count - 1 do
+        OrigInPtSecWidths[i] := hdrMedsIn.Sections[i].Width;
+  if (Sender as THeaderControl).Name = 'hdrMedsNonVA' then
+     for i := 0 to hdrMedsNonVA.Sections.Count - 1 do
+        OrigNonVASecWidths[i] := hdrMedsNonVA.Sections[i].Width;
+end;
+procedure TfrmMeds.hdrMedsOutMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  Self.SetSectionWidths(Sender); //CQ7586
+end;
+procedure TfrmMeds.hdrMedsNonVAMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  Self.SetSectionWidths(Sender); //CQ7586
+end;
+procedure TfrmMeds.hdrMedsInMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  Self.SetSectionWidths(Sender); //CQ7586
+end;
+procedure TfrmMeds.hdrMedsOutMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+//CQ7586
+var
+  i: integer;
+  totalSectionsWidth, originalwidth: integer;
+begin
+  inherited;
+  totalSectionsWidth := Self.GetTotalSectionsWidth(Sender);
+  if totalSectionsWidth > lstMedsOut.Width - 5 then  //could used any of the three list boxes here, since all are same width
+  begin
+    originalwidth := 0;
+    for i := 0 to hdrMedsOut.Sections.Count - 1 do
+      originalwidth := originalwidth + OrigOutPtSecWidths[i];
+    if originalwidth < totalSectionsWidth then
+    begin
+      for i := 0 to hdrMedsOut.Sections.Count - 1 do
+        hdrMedsOut.Sections[i].Width := OrigOutPtSecWidths[i];
+      lstMedsOut.Invalidate;
+    end;
+  end;
+  //CQ9622
+  if hdrMedsOut.Sections[1].Width < 100 then
+  begin
+    hdrMedsOut.Sections[1].Width := 100;
+    lstMedsOut.Refresh;
+  end;
+  //end CQ9622
+  pnlBottom.Height := pnlBottom.Height - 1;  // forces autopanel resize
+  pnlBottom.Height := pnlBottom.Height + 1;  // forces autopanel resize
+end;
+procedure TfrmMeds.hdrMedsNonVAMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+//CQ7586
+var
+  i: integer;
+  totalSectionsWidth, originalwidth: integer;
+begin
+  inherited;
+  totalSectionsWidth := Self.GetTotalSectionsWidth(Sender);
+  if totalSectionsWidth > lstMedsNonVA.Width - 5 then  //could used any of the three list boxes here, since all are same width
+  begin
+    originalwidth := 0;
+    for i := 0 to hdrMedsNonVA.Sections.Count - 1 do
+      originalwidth := originalwidth + OrigNonVASecWidths[i];
+    if originalwidth < totalSectionsWidth then
+    begin
+      for i := 0 to hdrMedsNonVA.Sections.Count - 1 do
+        hdrMedsNonVA.Sections[i].Width := OrigNonVASecWidths[i];
+      lstMedsNonVA.Invalidate;
+    end;
+  end;
+  //CQ9622
+  if hdrMedsNonVA.Sections[1].Width < 100 then
+  begin
+    hdrMedsNonVA.Sections[1].Width := 100;
+    lstMedsNonVA.Refresh;
+  end;
+  //end CQ9622
+  pnlNonVA.Height := pnlNonVA.Height - 1;  // forces autopanel resize
+  pnlNonVA.Height := pnlNonVA.Height + 1;  // forces autopanel resize
+end;
+procedure TfrmMeds.hdrMedsInMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+//CQ7586
+var
+  i: integer;
+  totalSectionsWidth, originalwidth: integer;
+begin
+  inherited;
+  totalSectionsWidth := Self.GetTotalSectionsWidth(Sender);
+  if totalSectionsWidth > lstMedsIn.Width - 5 then  //could used any of the three list boxes here, since all are same width
+  begin
+    originalwidth := 0;
+    for i := 0 to hdrMedsIn.Sections.Count - 1 do
+      originalwidth := originalwidth + OrigInPtSecWidths[i];
+    if originalwidth < totalSectionsWidth then
+    begin
+      for i := 0 to hdrMedsIn.Sections.Count - 1 do
+        hdrMedsIn.Sections[i].Width := OrigInPtSecWidths[i];
+      lstMedsIn.Invalidate;
+    end;
+  end;
+  //CQ9622
+  if hdrMedsIn.Sections[1].Width < 100 then
+  begin
+    hdrMedsIn.Sections[1].Width := 100;
+    lstMedsIn.Refresh;
+  end;
+  //end CQ9622
+  pnlBottom.Height := pnlBottom.Height - 1;  // forces autopanel resize
+  pnlBottom.Height := pnlBottom.Height + 1;  // forces autopanel resize
+end;
+procedure TfrmMeds.ClearChildODList;
+var
+  i: integer;
+begin
+  for i := 0 to ChildODList.count-1 do
+    if(assigned(ChildODList.Objects[i])) then
+      ChildODList.Objects[i].Free;
+  ChildODList.Clear;
+end;
+function TfrmMeds.CheckMedStatus(ActiveList: TListBox): boolean;
+var
+i: integer;
+tmpList: TStringList;
+Str: string;
+AMed: TMedListRec;
+AMedList: TList;
+begin
+ result := False;
+ tmpList:= TStringList.Create;
+ if TMedListRec = nil then exit;
+ AMedList := GetMedList(ActiveList);
+ for i := 0 to ActiveList.Count - 1 do if ActiveList.Selected[i] then
+    begin
+       AMed := TMedListRec(AMedList[i]);
+       str := Amed.PharmID + U + AMed.Status;
+       tmpList.Add(Str);
+      end;
+ if tmpList <> nil then
+   begin
+     Result := GetMedStatus(tmpList);
+     tmpList.Free;
+   end;
+ if Result = True then
+     begin
+       MessageDlg('The Medication status has change.' + #13#10#13 + 'CPRS needs to refresh patient information to display the correct medication status', mtWarning, [mbOK], 0);
+       frmFrame.mnuFileRefreshClick(Application);
+     end;
+end;
+(*procedure TfrmMeds.ActivateDeactiveRenew(AListBox: TListBox);
+var
+  i: Integer;
+  CurID: string;
+  SomePharmacyOrders: TStringList;
+  tmpArr: TStringList;
+begin
+    tmpArr := TStringList.Create;
+    SomePharmacyOrders := GetPharmacyOrders(AListBox);
+    with AListBox do for i := 0 to Items.Count - 1 do if Selected[i] then
+      begin
+        CurID := uPendingChanges.Values[Piece(Piece(SomePharmacyOrders[i], U, 2), ';', 1)];
+        if Length(CurID) > 0 then CurID := Piece(CurID, U, 2)
+        else CurID := Piece(SomePharmacyOrders[i], U, 2);
+        tmpArr.Add(curID);
+      end;
+    if tmpArr <> nil then frmActivateDeactive.fActivateDeactive(tmpArr, AListBox);
+end; *)
+procedure TfrmMeds.ViewInfo(Sender: TObject);
+begin
+  inherited;
+  frmFrame.ViewInfo(Sender);
+end;
+procedure TfrmMeds.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 TfrmMeds.mnuOptimizeFieldsClick(Sender: TObject);
+var
+  totalSectionsWidth, unit1, unit2, unit8: integer;
+begin
+  totalSectionsWidth := pnlTop.Width - 5;
+  if totalSectionsWidth < 16 then exit;
+  unit1 := (totalSectionsWidth div 16) - 1;
+  unit2 := unit1 * 2;
+  unit8 := unit1 * 8;
+  with hdrMedsNonVA do
+  begin
+    Sections[0].Width := unit1;
+    Sections[1].Width := unit8;
+    Sections[2].Width := unit2;
+    Sections[3].Width := unit2;
+  end;
+  hdrMedsNonVASectionResize(hdrMedsNonVA, hdrMedsNonVA.Sections[0]);
+  hdrMedsNonVA.Repaint;
+  with hdrMedsIn do
+  begin
+    Sections[0].Width := unit1;
+    Sections[1].Width := unit8;
+    Sections[2].Width := unit2;
+    Sections[3].Width := unit2;
+    Sections[4].Width := unit2;
+  end;
+  hdrMedsInSectionResize(hdrMedsIn, hdrMedsIn.Sections[0]);
+  hdrMedsIn.Repaint;
+  with hdrMedsOut do
+  begin
+    Sections[0].Width := unit1;
+    Sections[1].Width := unit8;
+    Sections[2].Width := unit2;
+    Sections[3].Width := unit2;
+    Sections[4].Width := unit2;
+    Sections[5].Width := unit1;
+  end;
+  hdrMedsOutSectionResize(hdrMedsOut, hdrMedsOut.Sections[0]);
+  hdrMedsOut.Repaint;
+end;
+procedure TfrmMeds.hdrMedsOutSectionClick(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  inherited;
+  //if Section = hdrMedsOut.Sections[1] then
+    mnuOptimizeFieldsClick(self);
+end;
+procedure TfrmMeds.hdrMedsNonVASectionClick(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  inherited;
+  //if Section = hdrMedsNonVA.Sections[1] then
+    mnuOptimizeFieldsClick(self);
+end;
+procedure TfrmMeds.hdrMedsInSectionClick(HeaderControl: THeaderControl;
+  Section: THeaderSection);
+begin
+  inherited;
+  //if Section = hdrMedsIn.Sections[1] then
+    mnuOptimizeFieldsClick(self);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fNoteProps.dfm

-              r459
+              r460
 object frmNoteProperties: TfrmNoteProperties
   Left = 176
   Top = 204
+  Left = 384
+  Top = 56
   AutoScroll = False
   BorderIcons = []
   Caption = 'Progress Note Properties'
   ClientHeight = 371
+  ClientHeight = 676
   ClientWidth = 543
   Color = clBtnFace
 …
   OldCreateOrder = False
   Position = poScreenCenter
+  OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
 …
     OnMouseClick = cboNewTitleMouseClick
     OnNeedData = cboNewTitleNeedData
+    CharsNeedMatch = 1
   end
   object calNote: TORDateBox
 …
     OnMouseClick = cboAuthorMouseClick
     OnNeedData = NewPersonNeedData
+    CharsNeedMatch = 1
   end
   object cboCosigner: TORComboBox
 …
     OnExit = cboCosignerExit
     OnNeedData = cboCosignerNeedData
+    CharsNeedMatch = 1
   end
   object cmdOK: TButton
 …
     Caption = 'OK'
     Default = True
     TabOrder = 8
+    TabOrder = 9
     OnClick = cmdOKClick
   end
 …
     Cancel = True
     Caption = 'Cancel'
     TabOrder = 9
+    TabOrder = 10
     OnClick = cmdCancelClick
   end
 …
     SynonymChars = '<>'
     TabOrder = 4
+    CharsNeedMatch = 1
   end
   object calProcDateTime: TORDateBox
 …
     Tag = 2
     Left = 0
     Top = 218
+    Top = 217
     Width = 543
     Height = 153
+    Align = alBottom
     BevelOuter = bvNone
     TabOrder = 6
 …
     Tag = 1
     Left = 0
     Top = 218
+    Top = 370
     Width = 543
     Height = 153
+    Align = alBottom
     BevelOuter = bvNone
     TabOrder = 7
     object lblConsult1: TLabel
       Tag = 1
       Left = 26
+      Left = 3
       Top = 8
       Width = 309
 …
     object lblConsult2: TLabel
       Tag = 1
       Left = 26
+      Left = 3
       Top = 22
       Width = 247
 …
       Pieces = '2,3,4,5,6'
       TabPositions = '21,43,69,83'
+      OnChange = lstRequestsChange
     end
     object btnShowList: TButton
       Left = 386
       Top = 12
+      Left = 335
+      Top = 13
       Width = 100
       Height = 21
 …
       OnClick = btnShowListClick
     end
+    object btnDetails: TButton
+      Left = 450
+      Top = 13
+      Width = 75
+      Height = 21
+      Caption = 'Show Details'
+      TabOrder = 2
+      OnClick = btnDetailsClick
+    end
+  end
+  object pnlPRF: TORAutoPanel
+    Tag = 3
+    Left = 0
+    Top = 523
+    Width = 543
+    Height = 153
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 8
+    object lblPRF: TLabel
+      Tag = 1
+      Left = 2
+      Top = 16
+      Width = 304
+      Height = 13
+      Caption = 'Which Patient Record Flag Action should this Note be linked to?'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Bevel1: TBevel
+      Tag = 1
+      Left = 1
+      Top = 2
+      Width = 531
+      Height = 2
+    end
+    object lvPRF: TCaptionListView
+      Left = 0
+      Top = 32
+      Width = 543
+      Height = 121
+      Align = alBottom
+      Columns = <
+        item
+          Caption = 'Used For Screen Readers'
+          Width = 1
+        end
+        item
+          AutoSize = True
+          Caption = 'Flag'
+        end
+        item
+          AutoSize = True
+          Caption = 'Date'
+        end
+        item
+          AutoSize = True
+          Caption = 'Action'
+        end
+        item
+          AutoSize = True
+          Caption = 'Note'
+        end>
+      Constraints.MinHeight = 50
+      HideSelection = False
+      Items.Data = {
+E0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
+        44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
+        3233115245414C4C59204C4F4E4720535455464603596573FFFFFFFFFFFF}
+      ReadOnly = True
+      RowSelect = True
+      TabOrder = 0
+      ViewStyle = vsReport
+    end
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fNoteProps.pas

-              r459
+              r460
 unit fNoteProps;
+unit fNoteProps;
 interface
 …
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, ORDtTm, ORCtrls, ExtCtrls, rTIU, uConst, uTIU, ORFn, ORNet;
+  StdCtrls, ORDtTm, ORCtrls, ExtCtrls, rTIU, uConst, uTIU, ORFn, ORNet,
+  ComCtrls, Buttons;
 type
+  {This object holds a List of Actions as Returned VIA the RPCBroker}
+  TPRFActions = class(TObject)
+  private
+    FPRFActionList : TStringList;
+  public
+    //procedure to show the Action in a ListView, requires a listview parameter
+    procedure ShowActionsOnList(DisplayList : TCaptionListView);
+    //procedure to load the actions, this will call the RPC
+    procedure Load(TitleIEN : Int64; DFN : String);
+    //returns true if the Action at the Index passed is associated with a note
+    function SelActionHasNote(lstIndex : integer) : boolean;
+    //return the Action IEN at the Index passed
+    function GetActionIEN(lstIndex : integer) : String;
+    //return the PRF IEN at the Index passed
+    function GetPRF_IEN(lstIndex : integer) : integer;
+    constructor Create();
+    destructor Destroy(); override;
+  end;
   TfrmNoteProperties = class(TForm)
     lblNewTitle: TLabel;
 …
     lblProcDateTime: TOROffsetLabel;
     btnShowList: TButton;
+    pnlPRF: TORAutoPanel;
+    lblPRF: TLabel;
+    Bevel1: TBevel;
+    lvPRF: TCaptionListView;
+    btnDetails: TButton;
     procedure FormShow(Sender: TObject);
     procedure cboNewTitleNeedData(Sender: TObject; const StartFrom: String;
 …
     procedure FormResize(Sender: TObject);
     procedure calNoteEnter(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure btnDetailsClick(Sender: TObject);
+    procedure lstRequestsChange(Sender: TObject);
   private
     FCosignIEN: Int64;      // store cosigner that was passed in
 …
     FProcDateTime: TFMDateTime;
     FCPStatusFlag: integer;
+    FPRFActions : TPRFActions;
+    FStarting: boolean;
     procedure SetCosignerRequired(DoSetup: boolean);
     procedure FormatRequestList;
     procedure ShowRequestList(ShouldShow: Boolean);
     procedure ShowSurgCaseList(ShouldShow: Boolean);
+    procedure ShowPRFList(ShouldShow: Boolean);
     procedure ShowClinProcFields(YesNo: boolean);
+    procedure SetGenericFormSize;
     procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT;
   public
     { Public declarations }
   end;
 function ExecuteNoteProperties(var ANote: TEditNoteRec; CallingTab: integer; IDNoteTitlesOnly,
 …
  TC_INACTIVE_USER     = 'Inactive User Alert';
+ PIXEL_SPACE = 6;
 implementation
 {$R *.DFM}
 uses uCore, rCore, rConsults, uConsults, rSurgery, uAccessibleListBox;
+uses uCore, rCore, rConsults, uConsults, rSurgery, uAccessibleListBox, fRptBox;
 { Initial values in ANote
 …
   TX_REQ_REQUEST       = CRLF + 'This title requires the selection of an associated consult request.';
   TX_REQ_SURGCASE      = CRLF + 'This title requires the selection of an associated surgery case.';
+  TX_REQ_PRF_ACTION    = CRLF + 'Notes of this title require the selection of a patient record flag action.';
+  TX_REQ_PRF_NOTE      = CRLF + 'This action has already been assigned to another note.';
   TX_NO_FUTURE         = CRLF + 'A reference date/time in the future is not allowed.';
   TX_COS_SELF          = CRLF + 'You cannot make yourself a cosigner.';
 …
   ACTIVE_STATUS = 'ACTIVE,PENDING,SCHEDULED';
+  PRF_LABEL = 'Which Patient Record Flag Action should this Note be linked to?';
+  FLAG_NAME = 1;
+  PRF_IEN = 2;
+  ACTION_NAME = 3;
+  ACTION_IEN = 4;
+  ACTION_DATE_I = 5;
+  ACTION_DATE = 6;
+  NOTE_IEN = 7;
 var
 …
       FIsClinProcNote := (AClassName = DCL_CLINPROC);
       FCPStatusFlag := CPStatusFlag;
+      uShowUnresolvedOnly := False;
+      //uShowUnresolvedOnly := False;                      //v26.5 (RV)
+      uShowUnresolvedOnly := True;                         //v26.5 (RV)
       if ANote.DocType <> TYP_ADDENDUM then
         begin
 …
            CT_NOTES:      begin
                             Caption := 'Progress Note Properties';
+                            if ANote.IsNewNote and UnresolvedConsultsExist then
+                              uShowUnresolvedOnly := InfoBox(TX_UNRESOLVED_CONSULTS, 'Unresolved Consults Exist',
+                                MB_YESNO or MB_ICONQUESTION) = IDYES;
+                            if ANote.IsNewNote then
+                            begin
+                              GetUnresolvedConsultsInfo; // v26.5 (RV) removed nag screen
+                            end;
                             cboNewTitle.InitLongList('');
                             cboAuthor.InitLongList(ANote.AuthorName);
 …
         end;
       ShowClinProcFields(FIsClinProcNote);
+      FStarting := True;
       if ANote.Title > 0 then cboNewTitle.SelectByIEN(ANote.Title);
       if (ANote.Title > 0) and (cboNewTitle.ItemIndex < 0)
         then cboNewTitle.SetExactByIEN(ANote.Title, ANote.TitleName);
+      FStarting := False;
       calNote.FMDateTime := ANote.DateTime;
       // setup cosigner fields
 …
       SetCosignerRequired(True);
       // setup package fields
+      SetGenericFormSize;
       case FCallingTab of
         CT_CONSULTS:  begin
                         ShowRequestList(False);
                         ShowSurgCaseList(False);
+                        ShowPRFList(False);
                       end;
         CT_SURGERY :  begin
                         ShowRequestList(False);
                         ShowSurgCaseList(False);
+                        ShowPRFList(False);
                       end;
         CT_NOTES   :  begin
+                        if IsConsultTitle(ANote.Title) then
+                          begin
+                            ShowRequestList(True);
+                            ShowSurgCaseList(False);
+                          end
+                        else if IsSurgeryTitle(ANote.Title) then
+                          begin
+                            ShowSurgCaseList(True);
+                            ShowRequestList(False);
+                          end
+                        else
+                          begin
+                            ShowRequestList(False);
+                            ShowSurgCaseList(False);
+                          end;
+                        with uUnresolvedConsults do                          // v26.5 (RV)
+                          ShowRequestList(IsConsultTitle(ANote.Title) or
+                            (UnresolvedConsultsExist and ShowNagScreen));    // v26.5 (RV)
+                        ShowSurgCaseList(IsSurgeryTitle(ANote.Title));
+                        ShowPRFList(IsPRFTitle(ANote.Title));
                       end;
       end;
 …
       end;
       cboNewTitle.Caption := lblNewTitle.Caption;
+      FStarting := True;
       cboNewTitleExit(frmNoteProperties);        // force display of request/case list
+      FStarting := False;
       if uShowUnresolvedOnly then                // override previous display if SHOW ME clicked on entrance
       begin
         cboNewTitle.ItemIndex := -1;
+        //cboNewTitle.ItemIndex := -1;      CQ#7587, v26.25 - RV
         uShowUnresolvedOnly := not uShowUnresolvedOnly;
         FormatRequestList;
 …
                               PkgPtr := PKG_SURGERY;
                               PkgRef := IntToStr(PkgIEN) + ';' + PkgPtr;
+                            end
+                          else if pnlPRF.Visible then //PRF
+                            begin
+                              PRF_IEN := FPRFActions.GetPRF_IEN(lvPRF.ItemIndex);
+                              ActionIEN := FPRFActions.GetActionIEN(lvPRF.ItemIndex);
                             end;
                         end;
 …
   begin
     if cboNewTitle.ItemIEN = 0
       then lblCosigner.Visible := AskCosignerForTitle(FDocType,            cboAuthor.ItemIEN)
       else lblCosigner.Visible := AskCosignerForTitle(cboNewTitle.ItemIEN, cboAuthor.ItemIEN);
+      then lblCosigner.Visible := AskCosignerForTitle(FDocType,            cboAuthor.ItemIEN, calNote.FMDateTime)
+      else lblCosigner.Visible := AskCosignerForTitle(cboNewTitle.ItemIEN, cboAuthor.ItemIEN, calNote.FMDateTime);
   end;
   cboCosigner.Visible := lblCosigner.Visible;
 …
   SavedIEN: integer;
 begin
+  ShouldShow := ShouldShow and (FCallingTab = CT_NOTES);
   if FDocType = TYP_ADDENDUM then ShouldShow := False;
+  pnlConsults.Visible := ShouldShow;
   if ShouldShow then
   begin
     SavedIEN := lstRequests.ItemIEN;
+    for i := 0 to Pred(ControlCount) do
+      if Controls[i].Tag = 1 then Controls[i].Visible := True;
+    pnlConsults.Align := alBottom;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + 6 + pnlConsults.Height;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + PIXEL_SPACE + pnlConsults.Height;
     lstRequests.Items.Clear;
     if uConsultsList.Count = 0 then ListConsultRequests(uConsultsList);
 …
     lblConsult1.Visible := (cboNewTitle.ItemIndex > -1);
     lstRequests.SelectByIEN(SavedIEN);
+  end else
+  begin
+    for i := 0 to Pred(ControlCount) do
+      if Controls[i].Tag = 1 then Controls[i].Visible := False;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + 6;
+  end;
+    btnDetails.Enabled := (lstRequests.ItemIndex > -1);
+  end
 end;
 procedure TfrmNoteProperties.ShowSurgCaseList(ShouldShow: Boolean);
 { called initially & whenever title changes }
+var
+  i: Integer;
+begin
+begin
+  pnlSurgery.Visible := ShouldShow;
   if FDocType = TYP_ADDENDUM then ShouldShow := False;
   if ShouldShow then
   begin
+    for i := 0 to Pred(ControlCount) do
+      if Controls[i].Tag = 2 then Controls[i].Visible := True;
+    pnlSurgery.Align := alBottom;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + 6 + pnlSurgery.Height;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + PIXEL_SPACE + pnlSurgery.Height;
     if lstSurgery.Items.Count = 0 then ListSurgeryCases(lstSurgery.Items);
+  end else
+  begin
+    for i := 0 to Pred(ControlCount) do
+      if Controls[i].Tag = 2 then Controls[i].Visible := False;
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + 6;
+  end;
+  end
 end;
 …
 procedure TfrmNoteProperties.cboNewTitleMouseClick(Sender: TObject);
+const
+  TX_NEED_CONSULT_TITLE = 'You currently have unresolved consults awaiting completion.' + CRLF +
+                          'The selected title cannot be used to complete consults.' + CRLF +
+                          'You must select a Consults title to complete a consult.' + CRLF + CRLF +
+                          'Answer "YES" to continue with this title and not complete a consult.' + CRLF +
+                          'Answer "NO" to select a different title.' + CRLF + CRLF +
+                          'Do you want to use this title and continue?';
+  TC_NOT_CONSULT_TITLE = 'Not a consult title';
+var
+  WantsToCompleteConsult: boolean;
+  ConsultTitle: boolean;
 begin
   with cboNewTitle do
 …
       CT_CONSULTS:  ;  // no action
       CT_SURGERY :  ;  // no action
+      CT_NOTES   :  if IsConsultTitle(cboNewTitle.ItemIEN) then
+                      begin
+                        ShowSurgCaseList(False);
+                        ShowRequestList(True);
+                      end
+                    else if IsSurgeryTitle(cboNewTitle.ItemIEN) then
+                      begin
+                        ShowRequestList(False);
+                        ShowSurgCaseList(True);
+                      end
+                    else
+                      begin
+                        ShowRequestList(False);
+                        ShowSurgCaseList(False);
+                      end;
+      CT_NOTES   :  begin            // v26.5 (RV) main changes here
+                      WantsToCompleteConsult := False;
+                      ConsultTitle := IsConsultTitle(cboNewTitle.ItemIEN);
+                      if (pnlConsults.Visible) and
+                         (lstRequests.Items.Count > 0) and
+                         (not FStarting) and
+                         (*(lstRequests.ItemID <> '') and*)
+                         (not ConsultTitle) then
+                          WantsToCompleteConsult := (InfoBox(TX_NEED_CONSULT_TITLE,
+                                                            TC_NOT_CONSULT_TITLE,
+                                                            MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) = IDNO);
+                      if WantsToCompleteConsult and (not ConsultTitle) then cboNewTitle.ItemIndex := -1;
+                      SetGenericFormSize;
+                      ShowRequestList(WantsToCompleteConsult or ConsultTitle);
+                      ShowSurgCaseList(IsSurgeryTitle(cboNewTitle.ItemIEN));
+                      ShowPRFList(IsPRFTitle(cboNewTitle.ItemIEN));
+                    end;
     end;
   SetCosignerRequired(True);
 …
 //var x: string;
 begin
+  with cboCosigner do if Text = '' then ItemIndex := -1;
+  with cboCosigner do if ((Text = '') or (ItemIEN = 0)) then
+  begin
+    ItemIndex := -1;
+    FCosignIEN := 0;
+    FCosignName := '';
+    exit;
+  end;
   FCosignIEN := cboCosigner.ItemIEN;
   FCosignName := Piece(cboCosigner.Items[cboCosigner.ItemIndex], U, 2);
 …
                        ShowRequestList(False);
                        ShowSurgCaseList(False);
+                       ShowPRFList(False);
                     end;
   end;*)
   SetCosignerRequired(False);
   ErrMsg := '';
+   if cboNewTitle.ItemIEN = 0 then
+    ErrMsg := ErrMsg + TX_REQ_TITLE
+    //code added 12/2002  check note parm - one per visit  GRE
+  else if OneNotePerVisit(CboNewTitle.ItemIEN, Patient.DFN, Encounter.VisitStr)then
+      ErrMsg := ErrMsg + TX_ONE_NOTE_PER_VISIT1
+                       + Piece(cboNewTitle.Items[cboNewTitle.ItemIndex],U,2)
+                       + TX_ONE_NOTE_PER_VISIT2
+    else
+  if cboNewTitle.ItemIEN = 0 then
+    ErrMsg := ErrMsg + TX_REQ_TITLE ;
+  if ErrMsg = '' then
+    begin
+      if FDocType = TYP_ADDENDUM then
+        begin
+          if OneNotePerVisit(TYP_ADDENDUM, Patient.DFN, Encounter.VisitStr)then
+            ErrMsg := ErrMsg + TX_ONE_NOTE_PER_VISIT1
+                     + 'Addendum to ' + Piece(cboNewTitle.Items[cboNewTitle.ItemIndex],U,2)
+                     + TX_ONE_NOTE_PER_VISIT2;
+        end
+        //code added 12/2002  check note parm - one per visit  GRE
+      else if OneNotePerVisit(CboNewTitle.ItemIEN, Patient.DFN, Encounter.VisitStr)then
+            ErrMsg := ErrMsg + TX_ONE_NOTE_PER_VISIT1
+                     + Piece(cboNewTitle.Items[cboNewTitle.ItemIndex],U,2)
+                     + TX_ONE_NOTE_PER_VISIT2;
+    end;
+  if ErrMsg = '' then
     begin
       if FIDNoteTitlesOnly then
 …
           else if ((pnlSurgery.Visible) and (lstSurgery.ItemIndex < 0)) then
             ErrMsg := ErrMsg + TX_REQ_SURGCASE
+          else if (pnlPRF.Visible) then
+          begin
+            if (lvPRF.ItemIndex < 0) then
+              ErrMsg := ErrMsg + TX_REQ_PRF_ACTION
+            else if FPRFActions.SelActionHasNote(lvPRF.ItemIndex) then
+              ErrMsg := ErrMsg + TX_REQ_PRF_NOTE;
+          end;
         end;
     end;
 …
        if (cboCosigner.ItemIEN = 0)     then ErrMsg := ErrMsg + TX_REQ_COSIGNER;
       //if (cboCosigner.ItemIEN = User.DUZ) then ErrMsg := TX_COS_SELF;  // (CanCosign will do this check)
       if (cboCosigner.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboCosigner.ItemIEN)
+      if (cboCosigner.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboCosigner.ItemIEN, calNote.FMDateTime)
         then ErrMsg := cboCosigner.Text + TX_COS_AUTH;
         //code added 02/2003  check if User is Inactive   GRE
 …
     else
       Caption := SHOW_UNRESOLVED;
+  ShowRequestList(True);
+  with uUnresolvedConsults do if (UnresolvedConsultsExist and ShowNagScreen) then pnlConsults.Visible := TRUE;  //v26.27 (RV)
+  ShowRequestList(pnlConsults.Visible);      //v26.5 (RV)
+  //ShowRequestList(True);                   //v26.5 (RV)
 end;
 …
 end;
+procedure TfrmNoteProperties.ShowPRFList(ShouldShow: Boolean);
+begin
+  pnlPRF.Visible := ShouldShow and not (FDocType = TYP_ADDENDUM);
+  if pnlPRF.Visible then
+  begin
+    ClientHeight := cboCosigner.Top + cboCosigner.Height + PIXEL_SPACE + pnlPRF.Height;
+    if FPRFActions = nil then
+      FPRFActions := TPRFActions.Create;
+    FPRFActions.Load(cboNewTitle.ItemIEN,Patient.DFN);
+    if RPCBrokerV.Results.Count <> 0 then
+      lblPRF.Caption := PRF_LABEL
+    else
+      lblPRF.Caption := 'No Linkable Actions for this Patient and/or Title.';
+    FPRFActions.ShowActionsOnList(lvPRF);
+    //Fix for CQ: 6926
+    lvPRF.Columns.BeginUpdate;
+    lvPRF.Columns.EndUpdate;
+    //End Fix for CQ: 6926
+  end
+end;
+procedure TfrmNoteProperties.SetGenericFormSize;
+begin
+  ClientHeight := cboCosigner.Top + cboCosigner.Height + PIXEL_SPACE;
+end;
+{ TPRFActions }
+constructor TPRFActions.Create;
+begin
+  inherited;
+  FPRFActionList := TStringList.Create;
+end;
+destructor TPRFActions.Destroy;
+begin
+  FPRFActionList.Free;
+  inherited;
+end;
+function TPRFActions.GetActionIEN(lstIndex: integer): String;
+begin
+  Result := Piece(FPRFActionList[lstIndex],U,ACTION_IEN);
+end;
+function TPRFActions.GetPRF_IEN(lstIndex: integer): integer;
+begin
+  Result := StrToInt(Piece(FPRFActionList[lstIndex],U,PRF_IEN));
+end;
+procedure TPRFActions.Load(TitleIEN : Int64; DFN : String);
+begin
+  CallV('TIU GET PRF ACTIONS', [TitleIEN,DFN]);
+  FPRFActionList.Assign(RPCBrokerV.Results);
+end;
+function TPRFActions.SelActionHasNote(lstIndex: integer): boolean;
+begin
+  Result := false;
+  if Piece(FPRFActionList[lstIndex],U,NOTE_IEN) <> '' then
+    Result := true;
+end;
+procedure TPRFActions.ShowActionsOnList(DisplayList: TCaptionListView);
+var
+  i : integer;
+  ListItem: TListItem;
+begin
+  DisplayList.Clear;
+  for i := 0 to FPRFActionList.Count-1 do
+  begin
+    //Caption="Text for Screen Reader" SubItem1=Flag SubItem2=Date SubItem3=Action SubItem4=Note
+    ListItem := DisplayList.Items.Add;
+    ListItem.Caption := PRF_LABEL; //Screen readers don't read the first column title on a listview.
+    ListItem.SubItems.Add(Piece(FPRFActionList[i],U,FLAG_NAME));
+    ListItem.SubItems.Add(Piece(FPRFActionList[i],U,ACTION_DATE));
+    ListItem.SubItems.Add(Piece(FPRFActionList[i],U,ACTION_NAME));
+    if SelActionHasNote(i) then
+      ListItem.SubItems.Add('Yes')
+    else
+      ListItem.SubItems.Add('No');
+  end;
+end;
+procedure TfrmNoteProperties.FormDestroy(Sender: TObject);
+begin
+  FPRFActions.Free;
+end;
+procedure TfrmNoteProperties.btnDetailsClick(Sender: TObject);
+var
+  ConsultDetail: TStringList;
+begin
+  if lstRequests.ItemIEN <= 0 then exit;
+  ConsultDetail := TStringList.Create;
+  try
+    LoadConsultDetail(ConsultDetail, lstRequests.ItemIEN) ;
+    ReportBox(ConsultDetail, 'Consult Details: #' + lstRequests.ItemID + ' - ' +
+               Piece(lstRequests.Items[lstRequests.ItemIndex], U, 3), TRUE);
+  finally
+    ConsultDetail.Free;
+  end;
+end;
+procedure TfrmNoteProperties.lstRequestsChange(Sender: TObject);
+begin
+  btnDetails.Enabled := (lstRequests.ItemIEN > 0);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fNotePrt.dfm

-              r459
+              r460
 inherited frmNotePrint: TfrmNotePrint
   Left = 505
   Top = 209
+  Left = 516
+  Top = 189
   AutoScroll = False
   Caption = 'frmNotePrint'

cprs/branches/foia-cprs/CPRS-Chart/fNotePrt.pas

-              r459
+              r460
   if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then
     begin
+    FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+    PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+    if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+    if dlgWinPrinter.Execute then
+       begin
+       FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+       PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+       if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+       end
     end
   else

cprs/branches/foia-cprs/CPRS-Chart/fNotes.dfm

-              r459
+              r460
 inherited frmNotes: TfrmNotes
   Left = 375
   Top = 144
   Width = 614
+  Left = 307
+  Top = 177
+  Width = 687
   Height = 409
   HelpContext = 5000
   Caption = 'Progress Notes Page'
   HelpFile = 'overvw'
+  KeyPreview = True
   Menu = mnuNotes
   OnDestroy = FormDestroy
   OnHide = FormHide
+  OnMouseMove = FormMouseMove
   OnShow = FormShow
   PixelsPerInch = 96
 …
   inherited shpPageBottom: TShape
     Top = 358
     Width = 606
+    Width = 679
   end
   inherited sptHorz: TSplitter
 …
       OnClick = cmdNewNoteClick
       OnExit = cmdNewNoteExit
+      OnMouseMove = FormMouseMove
       Align = alBottom
     end
 …
       OnClick = cmdPCEClick
       OnExit = cmdPCEExit
+      OnMouseMove = FormMouseMove
       Align = alBottom
     end
 …
         OnExit = tvNotesExit
         OnExpanded = tvNotesExpanded
+        OnMouseMove = FormMouseMove
         OnStartDrag = tvNotesStartDrag
         Caption = 'Last 100 Notes'
 …
   inherited pnlRight: TPanel
     Left = 68
     Width = 538
+    Width = 611
     Height = 358
     object sptVert: TSplitter
       Left = 0
       Top = 309
       Width = 538
+      Width = 611
       Height = 4
       Cursor = crVSplit
 …
       Left = 0
       Top = 313
       Width = 538
+      Width = 611
       Height = 45
       Align = alBottom
 …
       Left = 0
       Top = 0
       Width = 538
+      Width = 611
       Height = 309
       Align = alClient
 …
         Left = 0
         Top = 67
         Width = 538
+        Width = 611
         Height = 242
         Align = alClient
 …
         Left = 0
         Top = 0
         Width = 538
+        Width = 611
         Height = 67
         Align = alTop
 …
         OnResize = pnlFieldsResize
         DesignSize = (
 )
         object bvlNewTitle: TBevel
 …
         end
         object lblAuthor: TStaticText
           Left = 320
+          Left = 393
           Top = 6
           Width = 152
 …
         end
         object lblCosigner: TStaticText
           Left = 225
+          Left = 298
           Top = 21
           Width = 243
 …
         end
         object cmdChange: TButton
           Left = 474
+          Left = 547
           Top = 6
           Width = 58
 …
           Left = 48
           Top = 40
           Width = 484
+          Width = 557
           Height = 21
           Hint = 'Subject is limited to a maximum of 80 characters.'
 …
       Left = 0
       Top = 0
       Width = 538
+      Width = 611
       Height = 309
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
+      OnExit = pnlReadExit
       object lblTitle: TOROffsetLabel
         Left = 0
         Top = 0
         Width = 538
+        Width = 611
         Height = 19
         Align = alTop
 …
         Left = 0
         Top = 113
         Width = 538
+        Width = 611
         Height = 3
         Cursor = crVSplit
 …
         Left = 0
         Top = 116
         Width = 538
+        Width = 611
         Height = 193
         Align = alClient
 …
         TabOrder = 1
         WordWrap = False
         OnExit = memNoteExit
+        OnMouseMove = FormMouseMove
       end
       object lvNotes: TCaptionListView
         Left = 0
         Top = 19
         Width = 538
+        Width = 611
         Height = 94
         Align = alTop
 …
         OnColumnClick = lvNotesColumnClick
         OnCompare = lvNotesCompare
         OnExit = lvNotesExit
+        OnMouseMove = FormMouseMove
         OnResize = lvNotesResize
         OnSelectItem = lvNotesSelectItem
 …
         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 = '-'
 …
         Tag = 6
         Caption = 'Custo&m View'
+        OnClick = mnuViewClick
+      end
+      object mnuSearchForText: TMenuItem
+        Tag = 7
+        Caption = 'Search for Te&xt (Within Current View)'
         OnClick = mnuViewClick
       end
 …
       Tag = 6
       Caption = 'Cus&tom View'
+      OnClick = mnuViewClick
+    end
+    object popSearchForText: TMenuItem
+      Tag = 7
+      Caption = 'Search for Te&xt (Within Current View)'
       OnClick = mnuViewClick
     end

cprs/branches/foia-cprs/CPRS-Chart/fNotes.pas

-              r459
+              r460
 unit fNotes;
 {$O-}
+{
-NOTES:
-    TAB ORDER:
-      Becuase of the Dynamic ways of this form, the tab order must be
-      coded into the onExit events of the controls. If a new control is
-      added that needs access with tab & shift tab you must add the
-      code. Right clicking on the form and selecting tab order will not
-      be sufficient. See TfrmNotes.memPCEShowExit procedure for example.
+}
 interface
 …
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
+  uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList;
+  uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList,
+  fNoteST, ORNet, fNoteSTStop;
 type
 …
     N3: TMenuItem;
     mnuEditDialgFields: TMenuItem;
+    tvNotes: TORTreeView;
     lvNotes: TCaptionListView;
     sptList: TSplitter;
 …
     popNoteMemoInsTemplate: TMenuItem;
     popNoteMemoEncounter: TMenuItem;
+    tvNotes: TORTreeView;
+    mnuSearchForText: TMenuItem;
+    popSearchForText: 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 lstNotesClick(Sender: TObject);
 …
     procedure dlgReplaceTextFind(Sender: TObject);
     procedure mnuActAttachtoIDParentClick(Sender: TObject);
+    procedure memNewNoteKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure memNewNoteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
     procedure popNoteMemoInsTemplateClick(Sender: TObject);
 …
     procedure tvNotesDeletion(Sender: TObject; Node: TTreeNode);
     procedure tvNotesExit(Sender: TObject);
+    procedure pnlReadExit(Sender: TObject);
     procedure cmdNewNoteExit(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
     procedure memNewNoteKeyPress(Sender: TObject; var Key: Char);
     procedure memNewNoteKeyUp(Sender: TObject; var Key: Word;
 …
     procedure cmdChangeExit(Sender: TObject);
     procedure cmdPCEExit(Sender: TObject);
     procedure memNoteExit(Sender: TObject);
     procedure lvNotesExit(Sender: TObject);
+    procedure ViewInfo(Sender: TObject);
+    procedure mnuViewInformationClick(Sender: TObject);
   private
     FNavigatingTab : Boolean; //Currently Using tab to navigate
 …
     FOldDrawerPnlEncounterButtonExit: TNotifyEvent;
     FOldDrawerEdtSearchExit: TNotifyEvent;
+    FMousing: TDateTime;
     FStarting: boolean;
     procedure frmFramePnlPatientExit(Sender: TObject);
 …
     procedure frmDrawerEdtSearchExit(Sender: TObject);
     procedure ClearEditControls;
     procedure DoAutoSave;
+    procedure DoAutoSave(Suppress: integer = 1);
     function GetTitleText(AnIndex: Integer): string;
     procedure InsertAddendum;
 …
 var
   frmNotes: TfrmNotes;
+  SearchTextStopFlag: Boolean;   // Text Search CQ: HDS00002856
 implementation
 …
                       ' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF;
   TX_AUTH_SIGNED    = 'Author has not signed, are you SURE you want to sign.' +CRLF;
+{
+type
+  //CQ8300
+  ClipboardData = record
+     Text: array[0..255] of char;
+  end;
+}
 var
   uPCEShow, uPCEEdit:  TPCEData;
 …
   uChanging: Boolean;
   uIDNotesActive: Boolean;
 { TPage common methods --------------------------------------------------------------------- }
 …
     {LastCosigner & LastCosignerName aren't cleared because they're used as default for next note.}
     Lines        := nil;
+    PRF_IEN := 0;
+    ActionIEN := '';
   end;
   // clear the editing controls (also clear the new labels?)
   txtSubject.Text := '';
   memNewNote.Clear;
+  if memNewNote <> nil then memNewNote.Clear; //CQ7012 Added test for nil
   timAutoSave.Enabled := False;
   // clear the PCE object for editing
 …
     if IsConsultTitle(Title) and (PkgIEN = 0) then Result := True;
     if IsSurgeryTitle(Title) and (PkgIEN = 0) then Result := True;
+    if IsPRFTitle(Title) and (PRF_IEN = 0) and (not DocType = TYP_ADDENDUM) then Result := True;
     if (DocType = TYP_ADDENDUM) then
     begin
 …
     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;
 …
   x, WhyNot, DocInfo: string;
 begin
+  if frmFrame.Timedout then Exit;
   FNewIDChild := IsIDChild;
   EnableAutosave := FALSE;
 …
     end;
     // check to see if interaction necessary to get required fields
+    if LacksRequiredForCreate or VerifyNoteTitle or UnresolvedConsultsExist
+    GetUnresolvedConsultsInfo;
+    if LacksRequiredForCreate or VerifyNoteTitle or uUnresolvedConsults.UnresolvedConsultsExist
       then HaveRequired := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
       else HaveRequired := True;
 …
         //7348^Note Title^3000913^NERD, YOURA  (N0165)^1329;Rich Vertigan;VERTIGAN,RICH^8E REHAB MED^complete^Adm: 11/05/98;2981105.095547^        ;^^0^^^2
         with FEditNote do
+          begin
+            x := IntToStr(CreatedNote.IEN) + U + TitleName + U + FloatToStr(FEditNote.DateTime) + U +
+                 Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
+                 U + U + U + U + U + U + U;
+          end;
+        begin
+          x := IntToStr(CreatedNote.IEN) + U + TitleName + U + FloatToStr(FEditNote.DateTime) + U +
+               Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
+               U + U + U + U + U + U + U;
+          //Link Note to PRF Action
+          if PRF_IEN <> 0 then
+            if sCallV('TIU LINK TO FLAG', [CreatedNote.IEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
+              ShowMessage('TIU LINK TO FLAG: FAILED');
+        end;
         lstNotes.Items.Insert(0, x);
 …
         FChanged := False;
         cmdChangeClick(Self); // will set captions, sign state for Changes
         lstNotesClick(Self);  // will makepnlWrite visible
+        lstNotesClick(Self);  // will make pnlWrite visible
         if timAutoSave.Interval <> 0 then EnableAutosave := TRUE;
         if txtSubject.Visible then txtSubject.SetFocus else memNewNote.SetFocus;
 …
     else HaveRequired := True;
   // lock the consult request if there is a consult
+  with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
+  if HaveRequired then
+    with FEditNote do
+      if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
   if HaveRequired then
   begin
 …
   inherited;
   LimitEditWidth(memNewNote, MAX_PROGRESSNOTE_WIDTH - 1);
+  memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_PROGRESSNOTE_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
+  pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
+  //CQ7012 Added test for nil
+  if memNewNote <> nil then
+     memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_PROGRESSNOTE_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
+  //CQ7012 Added test for nil
+   if (Self <> nil) and (pnlLeft <> nil) and (pnlWrite <> nil) and (sptHorz <> nil) then
+     pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
 end;
 …
     // no other note being edited, so just proceed as before.
     UpdateEncounterInfo;
+  cmdPCE.Enabled := TRUE;
+  if cmdPCE <> nil then
+    cmdPCE.Enabled := TRUE
 end;
 …
   OKPressed, IsIDChild: Boolean;
   x: string;
+  DisAssoText : String;
 begin
   inherited;
 …
   LastTitle   := FEditNote.Title;
   FEditNote.IsNewNote := False;
+  DisAssoText := '';
+  if (FEditNote.PkgPtr = PKG_CONSULTS) then
+    DisAssoText := 'Consults';
+  if (FEditNote.PkgPtr = PKG_PRF) then
+    DisAssoText := 'Patient Record Flags';
+  if (DisAssoText <> '') and (Sender <> Self) then
+    if InfoBox('If this title is changed, Any '+DisAssoText+' will be disassociated'+
+               ' with this note',
+               'Disassociate '+DisAssoText+'?',MB_OKCANCEL) = IDCANCEL   then
+      exit;
   if FEditNote.PkgPtr = PKG_CONSULTS then LastConsult := FEditNote.PkgIEN else LastConsult := 0;;
   if Sender <> Self then OKPressed := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
 …
   lstNotes.Items[EditingIndex] := x;
   Changes.ReplaceText(CH_DOC, lstNotes.ItemID, GetTitleText(EditingIndex));
+  with FEditNote do if (PkgPtr = PKG_CONSULTS) and (LastConsult <> PkgIEN) then
+  with FEditNote do
+  begin
+  if (PkgPtr = PKG_CONSULTS) and (LastConsult <> PkgIEN) then
   begin
     // try to lock the new consult, reset to previous if unable
 …
     end;
   end;
+  //Link Note to PRF Action
+  if PRF_IEN <> 0 then
+    if sCallV('TIU LINK TO FLAG', [lstNotes.ItemIEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
+      ShowMessage('TIU LINK TO FLAG: FAILED');
+  end;
   if LastTitle <> FEditNote.Title then mnuActLoadBoilerClick(Self);
 end;
 …
 end;
 procedure TfrmNotes.DoAutoSave;
+procedure TfrmNotes.DoAutoSave(Suppress: integer = 1);
 var
   ErrMsg: string;
 …
     timAutoSave.Enabled := False;
     try
       SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex),1);
+      SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
     finally
       timAutoSave.Enabled := True;
 …
 var
   AuthCtxt: TAuthorContext;
+  SearchCtxt: TSearchContext; // Text Search CQ: HDS00002856
   DateRange: TNoteDateRange;
   Saved: Boolean;
 …
                    LoadNotes;
                  end;
+  // Text Search CQ: HDS00002856 --------------------
+  NC_SEARCHTEXT: begin;
+                   SearchTextStopFlag := False;
+                   SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt );
+                   with SearchCtxt do if Changed then
+                   begin
+                     //FCurrentContext.Status := IntToStr(ViewContext);
+                     frmSearchStop.Show;
+                     lblNotes.Caption := 'Search: '+ SearchString;
+                     frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
+                     FCurrentContext.SearchString := SearchString;
+                     LoadNotes;
+                   end;
+                   // Only do LoadNotes if something changed
+                 end;
+  // Text Search CQ: HDS00002856 --------------------
   NC_UNCOSIGNED: begin
                    FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
 …
   end; {case}
   lblNotes.Caption := SetNoteTreeLabel(FCurrentContext);
+  // Text Search CQ: HDS00002856 --------------------
+  If FCurrentContext.SearchString <> '' then
+    lblNotes.Caption := lblNotes.Caption+', containing "'+FCurrentContext.SearchString+'"';
+  If SearchTextStopFlag=True then begin;
+    lblNotes.Caption := 'Search for "'+FCurrentContext.SearchString+'" was stopped!';
+  end;
+  frmSearchStop.Hide;
+  // Text Search CQ: HDS00002856 --------------------
   lblNotes.hint := lblNotes.Caption;
   tvNotes.Caption := lblNotes.Caption;
 …
 procedure TfrmNotes.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;
+  ActionType, SignTitle: string;
 begin
   AnIndex := -1;
 …
   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_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
 …
 procedure TfrmNotes.popNoteMemoFindClick(Sender: TObject);
+//var
+  //hData: THandle;  //CQ8300
+  //pData: ^ClipboardData; //CQ8300
 begin
   inherited;
 …
       FindText := '';
       Options := [frDown, frHideUpDown];
+{
+      //CQ8300
+      OpenClipboard(dlgFindText.Handle);
+      hData := GetClipboardData(CF_TEXT);
+      pData := GlobalLock(hData);
+      FindText := pData^.Text;
+      GlobalUnlock(hData);
+      CloseClipboard;
+      //end CQ8300
+}
       Execute;
     end;
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     SpellCheckForControl(memNewNote);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     GrammarCheckForControl(memNewNote);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
   SigAction: integer;
   SavedDocID: string;
+  ARefDate: TFMDateTime;
 begin
   inherited;
 …
   if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
   Exclusions := GetCurrentSigners(lstNotes.ItemIEN);
+  SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES);
+  ARefDate := StrToFloat(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
+  SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES, ARefDate);
   with SignerList do
     begin
 …
 //===================  Added for sort/search enhancements ======================
 procedure TfrmNotes.LoadNotes;
+const
+  INVALID_ID = -1;
+  INFO_ID = 1;
 var
   tmpList: TStringList;
   ANode: TORTreeNode;
+  x,xx,noteId: integer;   // Text Search CQ: HDS00002856
+  Dest: TStrings;  // Text Search CQ: HDS00002856
+  KeepFlag: Boolean;  // Text Search CQ: HDS00002856
+  NoteCount, NoteMatches: integer;  // Text Search CQ: HDS00002856
 begin
   tmpList := TStringList.Create;
 …
         ListNotesForTree(tmpList, StrToIntDef(Status, 0), FMBeginDate, FMEndDate, Author, MaxDocs, TreeAscending);
         CreateListItemsforDocumentTree(FDocList, tmpList, StrToIntDef(Status, 0), GroupBy, TreeAscending, CT_NOTES);
+        // Text Search CQ: HDS00002856 ---------------------------------------
+        if FCurrentContext.SearchString<>''  then   // Text Search CQ: HDS00002856
+          begin
+            NoteMatches := 0;
+            Dest:=TStringList.Create;
+            NoteCount:=FDocList.Count-1;
+            if FDocList.Count>0 then
+              for x := FDocList.Count-1 downto 1 do begin;  // Don't do 0, because it's informational
+                KeepFlag:=False;
+                lblNotes.Caption:='Scanning '+IntToStr(NoteCount-x+1)+' of '+IntToStr(NoteCount)+', '+IntToStr(NoteMatches);
+                If NoteMatches=1 then lblNotes.Caption:=lblNotes.Caption+' match' else
+                                      lblNotes.Caption:=lblNotes.Caption+' matches';
+                frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
+                frmSearchStop.lblSearchStatus.Repaint;
+                lblNotes.Repaint;
+                // Free up some ticks so they can click the "Stop" button
+                application.processmessages;
+                application.processmessages;
+                application.processmessages;
+                If SearchTextStopFlag = False then begin
+                  noteId := StrToIntDef(Piece(FDocList.Strings[x],'^',1),-1);
+                  if (noteId = INVALID_ID) or (noteId = INFO_ID) then
+                    Continue;
+                  CallV('TIU GET RECORD TEXT', [Piece(FDocList.Strings[x],'^',1)]);
+                  Dest.Assign(RPCBrokerV.Results);
+                  If Dest.Count > 0 then
+                     for xx := 0 to Dest.Count-1 do
+                     begin
+                      //Dest.Strings[xx] := StringReplace(Dest.Strings[xx],'#13',' ',[rfReplaceAll, rfIgnoreCase]);
+                      if Pos(Uppercase(FCurrentContext.SearchString),Uppercase(Dest.Strings[xx]))>0 then
+                        keepflag:=true;
+                     end;
+                  If KeepFlag=False then begin;
+                    if FDocList.Count >= x then
+                      FDocList.Delete(x);
+                    if (tmpList.Count >= x) and (x > 0) then
+                      tmpList.Delete(x-1);
+                  end else
+                    Inc(NoteMatches);
+                end;
+              end;
+            Dest.Free;
+          end;
+        // Text Search CQ: HDS00002856 ---------------------------------------
         UpdateTreeView(FDocList, tvNotes);
       end;
 …
 var
   WhyNot: string;
+  //Saved: boolean;
 begin
   if EditingIndex <> -1 then
 …
 procedure TfrmNotes.ShowPCEButtons(Editing: boolean);
 begin
+  if frmFrame.Timedout then Exit;
   FEditingNotePCEObj := Editing;
   if Editing or AnytimeEncounters then
 …
     SetPiece(x, U, 5, NewAuth + ';' + AuthNameCheck);
     lstNotes.Items[EditingIndex] := x;
     if AskCosignerForTitle(Title, Author) then
+    if AskCosignerForTitle(Title, Author, DateTime) then
     begin
       InfoBox(UpperCase(AuthNameCheck) + TX_COSIGNER_REQD, TC_COSIGNER_REQD, MB_OK);
 …
 procedure TfrmNotes.tvNotesExit(Sender: TObject);
 begin
   if Boolean(Hi(GetKeyState(VK_TAB))) and (not Boolean(Hi(GetKeyState(VK_SHIFT))))then
+  if IncSecond(FMousing,1) < Now then
   begin
     if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
 …
       FindNextControl( cmdPCE, True, True, False).SetFocus;
   end;
+  FMousing := 0;
+end;
+procedure TfrmNotes.pnlReadExit(Sender: TObject);
+begin
+  inherited;
+  if IncSecond(FMousing,1) < Now then
+  begin
+    if (Screen.ActiveControl = frmFrame.pnlPatient) then
+      FindNextControl( tvNotes, True, True, False).SetFocus
+    else
+    if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
+        (Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
+        (Screen.ActiveControl = cmdNewNote) or
+        (Screen.ActiveControl = cmdPCE) then
+      FindNextControl( frmDrawers.pnlTemplatesButton, False, True, False).SetFocus;
+  end;
+  FMousing := 0;
 end;
 …
 begin
   inherited;
   if Boolean(Hi(GetKeyState(VK_TAB))) and
      (not frmDrawers.pnlEncounterButton.CanFocus) and
      (not Boolean(Hi(GetKeyState(VK_SHIFT)))) then
     if (memPCEShow.CanFocus) then
       memPCEShow.SetFocus
+  if IncSecond(FMousing,1) < Now then
+  begin
+    if (Screen.ActiveControl = lvNotes) or
+        (Screen.ActiveControl = memNote) then
+      frmFrame.pnlPatient.SetFocus
     else
+      frmFrame.pnlPatient.SetFocus;
+    if (Screen.ActiveControl = tvNotes) then
+      FindNextControl( frmFrame.pnlPatient, False, True, False).SetFocus;
+  end;
+  FMousing := 0;
 end;
 …
 begin
   FOldFramePnlPatientExit(Sender);
   if Boolean(Hi(GetKeyState(VK_TAB))) then
+  if IncSecond(FMousing,1) < Now then
   begin
     if (Screen.ActiveControl = lvNotes) or
 …
       FindNextControl( lvNotes, False, True, False).SetFocus;
   end;
+  FMousing := 0;
 end;
 …
 begin
   FOldDrawerPnlTemplatesButtonExit(Sender);
   if Boolean(Hi(GetKeyState(VK_TAB))) and Boolean(Hi(GetKeyState(VK_SHIFT))) then
     if memNewNote.CanFocus then
       memNewNote.SetFocus
     else if memNote.CanFocus then
       memNote.SetFocus;
+  if Boolean(Hi(GetKeyState(VK_TAB))) and  (memNewNote.CanFocus) and
+     Boolean(Hi(GetKeyState(VK_SHIFT))) then
+    memNewNote.SetFocus
+  else
+    cmdNewNoteExit(Sender);
 end;
 …
   FOldDrawerPnlEncounterButtonExit(Sender);
   cmdNewNoteExit(Sender);
+end;
+procedure TfrmNotes.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  inherited;
+  FMousing := Now;
 end;
 …
   if Boolean(Hi(GetKeyState(VK_TAB))) then
     if Boolean(Hi(GetKeyState(VK_SHIFT))) then
+      if cmdPCE.CanFocus then
+        cmdPCE.SetFocus
+      else
+        cmdNewNote.SetFocus
+      cmdPCE.SetFocus
     else
       frmFrame.pnlPatient.SetFocus;
 …
   if Boolean(Hi(GetKeyState(VK_TAB))) and
      Not Boolean(Hi(GetKeyState(VK_SHIFT))) then
+    memPCEShow.SetFocus;
+end;
+procedure TfrmNotes.memNoteExit(Sender: TObject);
+begin
+  inherited;
+  //Fix the Tab Order  Make Drawers Buttons Accessible
+  if Boolean(Hi(GetKeyState(VK_TAB))) then
+    if Boolean(Hi(GetKeyState(VK_SHIFT))) then
+    begin
+      if lvNotes.CanFocus then
+        lvNotes.SetFocus
+      else if tvNotes.CanFocus then
+        tvNotes.SetFocus;
+    end
+    else if frmDrawers.pnlTemplatesButton.CanFocus then
+      frmDrawers.pnlTemplatesButton.SetFocus
+end;
+procedure TfrmNotes.lvNotesExit(Sender: TObject);
+begin
+  inherited;
+  if Boolean(Hi(GetKeyState(VK_TAB))) and Boolean(Hi(GetKeyState(VK_SHIFT))) then
+    if tvNotes.CanFocus then
+      tvNotes.SetFocus
+        if memPCEShow.Visible then //CQ7120
+           memPCEShow.SetFocus; //CQ7120
+end;
+procedure TfrmNotes.ViewInfo(Sender: TObject);
+begin
+  inherited;
+  frmFrame.ViewInfo(Sender);
+end;
+procedure TfrmNotes.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;
 …
 finalization
   uPCEEdit.Free;
   uPCEShow.Free;
+  if (uPCEEdit <> nil) then uPCEEdit.Free; //CQ7012 Added test for nil
+  if (uPCEShow <> nil) then uPCEShow.Free; //CQ7012 Added test for nil
 end.

cprs/branches/foia-cprs/CPRS-Chart/fNotesBP.dfm

-              r459
+              r460
   TextHeight = 13
   object Label1: TStaticText
+    Left = 6
+    Top = 6
+    Width = 229
+    Height = 13
+    Left = 0
+    Top = 0
+    Width = 310
+    Height = 17
+    Align = alTop
     AutoSize = False
     Caption = 'The selected title has associated boilerplate text.'
     TabOrder = 3
+    TabOrder = 1
   end
   object radOptions: TRadioGroup
+    Left = 6
+    Top = 25
+    Width = 295
+    Height = 90
+    Left = 0
+    Top = 17
+    Width = 310
+    Height = 103
+    Align = alClient
     Caption = ' Choose from: '
     ItemIndex = 0
 …
     TabOrder = 0
   end
+  object cmdPreview: TButton
+    Left = 6
+    Top = 127
+    Width = 79
+    Height = 21
+    Caption = 'Preview Text'
+    TabOrder = 1
+    OnClick = cmdPreviewClick
+  end
+  object cmdClose: TButton
+    Left = 230
+    Top = 127
+    Width = 72
+    Height = 21
+    Caption = 'OK'
+    Default = True
+  object btnPanel: TPanel
+    Left = 0
+    Top = 120
+    Width = 310
+    Height = 28
+    Align = alBottom
     TabOrder = 2
+    OnClick = cmdCloseClick
+    object cmdPreview: TButton
+      Left = 6
+      Top = 4
+      Width = 79
+      Height = 21
+      Caption = 'Preview Text'
+      TabOrder = 0
+      OnClick = cmdPreviewClick
+    end
+    object cmdClose: TButton
+      Left = 230
+      Top = 4
+      Width = 72
+      Height = 21
+      Caption = 'OK'
+      Default = True
+      TabOrder = 1
+      OnClick = cmdCloseClick
+    end
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fNotesBP.pas

r459	r460
11	11	Label1: TStaticText;
12	12	radOptions: TRadioGroup;
	13	btnPanel: TPanel;
13	14	cmdPreview: TButton;
14	15	cmdClose: TButton;

cprs/branches/foia-cprs/CPRS-Chart/fPage.pas

-              r459
+              r460
 implementation
 uses ORFn, fFrame;
+uses ORFn, fFrame, uInit;
 {$R *.DFM}
 …
   NextControl: TWinControl;
 begin
   if Assigned(frmFrame) and frmFrame.Enabled and frmFrame.Visible then begin
+  if Assigned(frmFrame) and frmFrame.Enabled and frmFrame.Visible and not uInit.Timedout then begin
     NextControl := FindNextControl(nil, True, True, False);
     if NextControl <> nil then

cprs/branches/foia-cprs/CPRS-Chart/fPatientFlagMulti.dfm

-              r459
+              r460
 object frmFlags: TfrmFlags
   Left = 457
   Top = 74
+  Left = 210
+  Top = 169
   Width = 505
+  Height = 398
+  Height = 498
+  VertScrollBar.Range = 116
+  AutoScroll = False
   Caption = 'Patient Record Flags'
   Color = clBtnFace
 …
   OnClose = FormClose
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnKeyDown = FormKeyDown
   OnShow = FormShow
 …
     Align = alNone
   end
   object Panel1: TPanel
+  object Splitter2: TSplitter
     Left = 0
     Top = 340
+    Top = 308
     Width = 497
+    Height = 31
+    Height = 4
+    Cursor = crVSplit
     Align = alBottom
+    TabOrder = 1
+    DesignSize = (
+)
+    object btnClose: TButton
+      Left = 410
+      Top = 5
+      Width = 77
+      Height = 21
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = 'Close'
+      TabOrder = 0
+      OnClick = btnCloseClick
+    end
+    MinSize = 45
   end
   object Panel2: TPanel
+  object pnlTop: TORAutoPanel
     Left = 0
     Top = 0
 …
     Constraints.MinHeight = 40
     Constraints.MinWidth = 300
     TabOrder = 2
+    TabOrder = 0
     object lblFlags: TLabel
       Left = 1
 …
       Height = 65
       Align = alClient
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Courier New'
+      Font.Style = []
+      ItemHeight = 14
+      ParentFont = False
+      ItemHeight = 13
       ParentShowHint = False
       ShowHint = True
 …
     end
   end
   object memFlags: TCaptionMemo
+  object memFlags: TRichEdit
     Left = 0
     Top = 80
     Width = 497
     Height = 260
+    Height = 228
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
+    Font.Charset = ANSI_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
     Font.Name = 'Courier New'
     Font.Style = []
+    HideScrollBars = False
     Lines.Strings = (
       '')
 …
     ReadOnly = True
     ScrollBars = ssBoth
     TabOrder = 0
+    TabOrder = 1
     WantReturns = False
     WordWrap = False
   end
+  object pnlNotes: TPanel
+    Left = 0
+    Top = 312
+    Width = 497
+    Height = 152
+    Align = alBottom
+    TabOrder = 2
+    object lblNoteTitle: TLabel
+      Left = 1
+      Top = 1
+      Width = 495
+      Height = 13
+      Align = alTop
+      Caption = 'lblNoteTitle'
+    end
+    object lvPRF: TCaptionListView
+      Left = 1
+      Top = 14
+      Width = 495
+      Height = 106
+      Align = alClient
+      Columns = <
+        item
+          Caption = 'Used For Screen Readers'
+          Width = 1
+        end
+        item
+          AutoSize = True
+          Caption = 'Date'
+        end
+        item
+          AutoSize = True
+          Caption = 'Action'
+        end
+        item
+          AutoSize = True
+          Caption = 'Author'
+        end>
+      Constraints.MinHeight = 50
+      HideSelection = False
+      Items.Data = {
+C0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
+        44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
+        3233115245414C4C59204C4F4E47205354554646115069636B6572696E672C20
+D6F726F6E69FFFFFFFFFFFF}
+      ReadOnly = True
+      RowSelect = True
+      TabOrder = 0
+      ViewStyle = vsReport
+      OnClick = lvPRFClick
+      OnKeyDown = lvPRFKeyDown
+    end
+    object pnlBottom: TORAutoPanel
+      Left = 1
+      Top = 120
+      Width = 495
+      Height = 31
+      Align = alBottom
+      TabOrder = 1
+      DesignSize = (
+)
+      object btnClose: TButton
+        Left = 410
+        Top = 5
+        Width = 77
+        Height = 21
+        Anchors = [akRight, akBottom]
+        Cancel = True
+        Caption = 'Close'
+        ModalResult = 2
+        TabOrder = 0
+      end
+    end
+  end
 end

cprs/branches/foia-cprs/CPRS-Chart/fPatientFlagMulti.pas

-              r459
+              r460
 type
+  TfrmFlags = class(TfrmAutoSz)
+  {This object holds a List of Notes Linked to a PRF as Returned VIA the RPCBroker}
+  TPRFNotes = class(TObject)
+  private
+    FPRFNoteList : TStringList;
+  public
+    //procedure to show the Notes in a ListView, requires a listview parameter
+    procedure ShowActionsOnList(DisplayList : TCaptionListView);
+    //procedure to load the notes, this will call the RPC
+    procedure Load(TitleIEN : Int64; DFN : String);
+    function getNoteIEN(index: integer): String;
+    constructor create;
+    destructor Destroy(); override;
+  end;
+  TfrmFlags = class(TForm)
     Splitter1: TSplitter;
+    Panel1: TPanel;
+    btnClose: TButton;
+    Panel2: TPanel;
+    pnlTop: TORAutoPanel;
     lblFlags: TLabel;
     lstFlags: TORListBox;
+    memFlags: TCaptionMemo;
+    memFlags: TRichEdit;
+    pnlNotes: TPanel;
+    lvPRF: TCaptionListView;
+    lblNoteTitle: TLabel;
+    Splitter2: TSplitter;
+    pnlBottom: TORAutoPanel;
+    btnClose: TButton;
     procedure lstFlagsClick(Sender: TObject);
-    procedure btnCloseClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
 …
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure lvPRFClick(Sender: TObject);
+    procedure lvPRFKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     FFlagID: integer;
+    FPRFNotes : TPRFNotes;
+    FNoteTitle: String;
+    procedure GetNotes();
   public
     { Public declarations }
   end;
+const
+  HIDDEN_COL = 'Press enter or space bar to view this note:';
+  //TIU GET LINKED PRF NOTES, return position constants
+  NOTE_IEN_POS = 1;
+  ACTION_POS = 2;
+  NOTE_DATE_POS = 3;
+  AUTHOR_POS = 4;
+  //TIU GET PRF TITLE, return position constants
+  NOTE_TITLE_IEN = 1;
+  NOTE_TITLE = 2;
 procedure ShowFlags(FlagId: integer = 0);
 …
 implementation
 uses uCore,uOrPtf,ORFn;
+uses uCore,uOrPtf,ORFn, ORNet, uConst, fRptBox, rCover;
 {$R *.dfm}
 …
     if HasFlag then
     begin
       SetFormPosition(frmFlags);
+      //SetFormPosition(frmFlags);
       frmFlags.FFlagID := FlagId;
       frmFlags.lstFlags.Items.Assign(FlagList);
       frmFlags.memFlags.SelStart := 0;
       //ResizeFormToFont(TForm(frmFlags));
+      ResizeFormToFont(TForm(frmFlags));
       frmFlags.ShowModal;
     end
 …
       memFlags.Lines.Assign(FlagArray);
     memFlags.SelStart := 0;
+  end;
+end;
+procedure TfrmFlags.btnCloseClick(Sender: TObject);
+begin
+  Close;
+    GetNotes;
+  end;
 end;
 …
 begin
   inherited;
+  SetFormPosition(Self);
   idx := 0;
   if FFlagID > 0 then idx := lstFlags.SelectByIEN(FFlagId);
 …
   lstFlagsClick(Self);
   ActiveControl := memFlags;
+  GetNotes;
 end;
 …
 begin
   inherited;
+  //SaveUserBounds(Self);
+end;
+  SaveUserBounds(Self);
+end;
+procedure TfrmFlags.GetNotes;
+var
+  NoteTitleIEN, FlagID : Int64;
+begin
+    if FPRFNotes = nil then
+      FPRFNotes := TPRFNotes.Create;
+    FlagID := lstFlags.ItemID;
+    CallV('TIU GET PRF TITLE', [Patient.DFN,FlagID]);
+    FNoteTitle := Piece(RPCBrokerV.Results[0],U,NOTE_TITLE);
+    lblNoteTitle.Caption := 'Signed, Linked Notes of Title: '+ FNoteTitle;
+    NoteTitleIEN := StrToInt(Piece(RPCBrokerV.Results[0],U,NOTE_TITLE_IEN));
+    FPRFNotes.Load(NoteTitleIEN,Patient.DFN);
+    FPRFNotes.ShowActionsOnList(lvPRF);
+    with lvPRF do begin
+      Columns.BeginUpdate;
+      Columns.EndUpdate;
+    end;
+end;
+{ TPRFNotes }
+constructor TPRFNotes.create;
+begin
+  inherited;
+  FPRFNoteList := TStringList.create;
+end;
+destructor TPRFNotes.Destroy;
+begin
+  FPRFNoteList.Free;
+  inherited;
+end;
+function TPRFNotes.getNoteIEN(index: integer): String;
+begin
+ Result := Piece(FPRFNoteList[index],U,NOTE_IEN_POS);
+end;
+procedure TPRFNotes.Load(TitleIEN: Int64; DFN: String);
+const
+  REVERSE_CHRONO = 1;
+begin
+  CallV('TIU GET LINKED PRF NOTES', [DFN,TitleIEN,REVERSE_CHRONO]);
+  FPRFNoteList.Assign(RPCBrokerV.Results);
+end;
+procedure TPRFNotes.ShowActionsOnList(DisplayList: TCaptionListView);
+var
+  i : integer;
+  ListItem: TListItem;
+begin
+  DisplayList.Clear;
+  for i := 0 to FPRFNoteList.Count-1 do
+  begin
+    //Caption="Text for Screen Reader" SubItem1=Flag SubItem2=Date SubItem3=Action SubItem4=Note
+    ListItem := DisplayList.Items.Add;
+    ListItem.Caption := HIDDEN_COL; //Screen readers don't read the first column title on a listview.
+    ListItem.SubItems.Add(Piece(FPRFNoteList[i],U,NOTE_DATE_POS));
+    ListItem.SubItems.Add(Piece(FPRFNoteList[i],U,ACTION_POS));
+    ListItem.SubItems.Add(Piece(FPRFNoteList[i],U,AUTHOR_POS));
+  end;
+end;
+procedure TfrmFlags.FormDestroy(Sender: TObject);
+begin
+  FPRFNotes.Free;
+end;
+procedure TfrmFlags.lvPRFClick(Sender: TObject);
+begin
+  if lvPRF.ItemIndex > -1 then
+  begin
+    NotifyOtherApps(NAE_REPORT, 'TIU^' + FPRFNotes.getNoteIEN(lvPRF.ItemIndex));
+    ReportBox(DetailPosting(FPRFNotes.getNoteIEN(lvPRF.ItemIndex)), FNoteTitle, True);
+  end;
+end;
+procedure TfrmFlags.lvPRFKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if (Key = VK_SPACE) or (Key = VK_RETURN) then
+    lvPRFClick(Sender);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fProbEdt.pas

-              r459
+              r460
 begin
   Result := not fChanged;
-(*  if not fChanged then
-    begin
-      result := true;
-      exit;
-    end;
-  if InfoBox('Discard changes?', 'Confirmation', MB_OKCANCEL or MB_ICONQUESTION) <> IDOK then
-    result := false
-  else
-    result := true;*)
 end;
 …
   else
     begin
     if (not FSilent) and
        (InfoBox('Discard changes?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES) then
       begin
         FCanQuit := False;
         exit;
       end
     else
       begin
         frmProblems.lblProbList.caption := frmProblems.pnlRight.Caption ;
         FCanQuit := True;
         close;
       end;
+      if (not FSilent) and
+         (InfoBox('Discard changes?', 'Add/Edit a Problem', MB_YESNO or MB_ICONQUESTION) <> IDYES) then
+        begin
+          FCanQuit := False;
+          exit;
+        end
+      else
+        begin
+          frmProblems.lblProbList.caption := frmProblems.pnlRight.Caption ;
+          FCanQuit := True;
+          close;
+        end;
     end;
 end;
 …
     if Pos(Reason,'E,C') > 0 then ShowComments  ;
+    if ProbRec.CmtIsXHTML then
+      begin
+        bbAdd.Enabled := FALSE;
+        bbEdit.Enabled := FALSE;
+        bbRemove.Enabled := FALSE;
+        pnlComments.Hint := ProbRec.CmtNoEditReason;
+      end
+    else
+      begin
+        bbAdd.Enabled := TRUE;
+        bbEdit.Enabled := TRUE;
+        bbRemove.Enabled := TRUE;
+        pnlComments.Hint := '';
+      end ;
    // ===================  changed code - REV 7/30/98  =========================
    // PlUser.usVerifyTranscribed is a SITE requirement, not a user ability

cprs/branches/foia-cprs/CPRS-Chart/fProbs.dfm

-              r459
+              r460
 inherited frmProblems: TfrmProblems
   Left = 206
   Top = 198
+  Left = 627
+  Top = 64
   Width = 639
   Height = 409
 …
     Width = 2
     Height = 358
+    OnMoved = sptHorzMoved
   end
   inherited pnlLeft: TPanel
 …
         item
           ImageIndex = -1
+          MinWidth = 20
           Text = 'Description'
           Width = 65
 …
         item
           ImageIndex = -1
+          MinWidth = 16
           Text = 'Onset Date'
           Width = 65
 …
         item
           ImageIndex = -1
+          MinWidth = 16
           Text = 'Last Updated'
           Width = 80
 …
           Width = 0
         end>
+      OnSectionClick = HeaderControlSectionClick
       OnSectionResize = HeaderControlSectionResize
+      OnMouseDown = HeaderControlMouseDown
+      OnMouseUp = HeaderControlMouseUp
     end
   end
 …
       Caption = 'View Details'
       OnClick = lstProbActsClick
+    end
+    object mnuOptimizeFields: TMenuItem
+      Caption = 'Adjust Column Size'
+      Visible = False
+      OnClick = mnuOptimizeFieldsClick
     end
   end
 …
         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 = '-'

cprs/branches/foia-cprs/CPRS-Chart/fProbs.pas

-              r459
+              r460
     mnuChartSurgery: TMenuItem;
     HeaderControl: THeaderControl;
+    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 lstProbPickClick(Sender: TObject);
 …
     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
+    procedure ViewInfo(Sender: TObject);
+    procedure mnuViewInformationClick(Sender: TObject);
+    procedure mnuOptimizeFieldsClick(Sender: TObject);
+    procedure HeaderControlSectionClick(HeaderControl: THeaderControl;
+      Section: THeaderSection);
+    procedure HeaderControlMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure HeaderControlMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    function getTotalSectionsWidth : integer;
+    procedure setSectionWidths;
+    procedure sptHorzMoved(Sender: TObject);
   private
     FContextString: string;
 …
   GridColWidths: Array[0..15] of integer =(0, 5, -1, 9, 9, 0, 12, 12, 12, 0, 0, 0, 0, 0, 0, 0);
+  type
+  arOrigSecWidths = array[0..15] of integer;
 var
   frmProblems: TfrmProblems;
 …
   gFontWidth: Integer;
   gFixedWidth: Integer;
+  origWidths: arOrigSecWidths;
 implementation
 …
                   exit;
                 end ;
+              if ProbRec.CmtIsXHTML then
+                begin
+                  InfoBox(ProbRec.CmtNoEditReason, 'Unable to add new comment', MB_ICONWARNING or MB_OK);
+                  exit;
+                end ;
               cmt := NewComment ;
               if (StrToInt(Piece(cmt, U, 1)) > 0) and (Piece(cmt, U, 3) <> '') then
 …
   HeaderControl.Sections[AdjustCol].AutoSize := True;
   HeaderControl.Sections[AdjustCol].Width := HeaderControl.Width - cxUsed;
+  //mnuOptimizeFieldsClick(self);       //******** test making compression, proportional, or no spacing on resize
 end;
 …
   end ;
   lstProbActsClick(Self) ;
+  mnuOptimizeFieldsClick(self);
 end;
 …
   if Assigned(dlgProbs) then
     dlgProbs.SetFontSize( MainFontSize);
+  mnuOptimizeFieldsClick(self);
 end;
 …
   inherited;
   wgProbData.Invalidate;
+  {FEvtColWidth := HeaderControl.Sections[0].Width;     //code from fOrders
+  RedrawSuspend(Self.Handle);
+  //RedrawOrderList;
+  RedrawActivate(Self.Handle);
+  wgProbData.Invalidate;
+  pnlRight.Refresh;
+  pnlLeft.Refresh; }
 end;
 …
 end;
+procedure TfrmProblems.ViewInfo(Sender: TObject);
+begin
+  inherited;
+  frmFrame.ViewInfo(Sender);
+end;
+procedure TfrmProblems.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 TfrmProblems.mnuOptimizeFieldsClick(Sender: TObject);
+var
+  totalSectionsWidth, unitvalue: integer;
+begin
+  totalSectionsWidth := pnlRight.Width - 3;
+  if totalSectionsWidth < 16 then exit;
+  unitvalue := round(totalSectionsWidth / 16);
+  with HeaderControl do
+  begin
+    if Sections[1].Width > 0 then Sections[1].Width := unitvalue;
+    Sections[2].Width := pnlRight.Width - (unitvalue * 11) - 5;
+    Sections[3].Width := unitvalue * 2;
+    Sections[4].Width := unitvalue * 2;
+    if Sections[6].Width > 0 then Sections[6].Width := unitvalue;
+    if Sections[7].Width > 0 then Sections[7].Width := unitvalue * 2;
+    if Sections[8].Width > 0 then Sections[8].Width := unitvalue * 2;
+    if Sections[15].Width > 0 then Sections[15].Width := unitvalue;
+  end;
+  HeaderControlSectionResize(HeaderControl, HeaderControl.Sections[0]);
+  HeaderControl.Repaint;
+end;
+procedure TfrmProblems.HeaderControlSectionClick(
+  HeaderControl: THeaderControl; Section: THeaderSection);
+begin
+  inherited;
+  //if Section = HeaderControl.Sections[1] then
+    mnuOptimizeFieldsClick(self);
+end;
+procedure TfrmProblems.HeaderControlMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+  i: integer;
+  totalSectionsWidth, originalwidth: integer;
+begin
+  inherited;
+  totalSectionsWidth := getTotalSectionsWidth;
+  if totalSectionsWidth > wgProbData.Width - 5 then
+  begin
+    originalwidth := 0;
+    for i := 0 to HeaderControl.Sections.Count - 1 do
+      originalwidth := originalwidth + origWidths[i];
+    if originalwidth < totalSectionsWidth then
+    begin
+      for i := 0 to HeaderControl.Sections.Count - 1 do
+        HeaderControl.Sections[i].Width := origWidths[i];
+      wgProbData.Invalidate;
+    end;
+  end;
+end;
+function TfrmProblems.getTotalSectionsWidth : integer;
+var
+  i: integer;
+begin
+  Result := 0;
+  for i := 0 to HeaderControl.Sections.Count - 1 do
+     Result := Result + HeaderControl.Sections[i].Width;
+end;
+procedure TfrmProblems.HeaderControlMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  setSectionWidths;
+end;
+procedure TfrmProblems.setSectionWidths;
+var
+  i: integer;
+begin
+  for i := 0 to 15 do
+     origWidths[i] := HeaderControl.Sections[i].Width;
+end;
+procedure TfrmProblems.sptHorzMoved(Sender: TObject);
+begin
+  inherited;
+  mnuOptimizeFieldsClick(self);
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fPtSel.dfm

-              r459
+              r460
 object frmPtSel: TfrmPtSel
   Left = 161
   Top = 100
   Width = 812
   Height = 612
+  Left = 81
+  Top = 89
+  Width = 793
+  Height = 589
   BorderIcons = []
   Caption = 'Patient Selection'
 …
     Left = 0
     Top = 290
     Width = 804
+    Width = 785
     Height = 4
     Cursor = crVSplit
 …
     Left = 0
     Top = 294
     Width = 804
+    Width = 785
     Height = 17
     Align = alTop
 …
     Left = 0
     Top = 0
     Width = 804
+    Width = 785
     Height = 290
     Align = alTop
 …
     end
     object cmdSaveList: TButton
       Left = 462
       Top = 216
       Width = 149
+      Left = 499
+      Top = 217
+      Width = 175
       Height = 18
       Caption = 'Save Patient List Settings'
 …
   object pnlNotifications: TORAutoPanel
     Left = 0
     Top = 550
     Width = 804
+    Top = 527
+    Width = 785
     Height = 35
     Align = alBottom
 …
     Left = 0
     Top = 311
     Width = 804
     Height = 239
+    Width = 785
+    Height = 216
     Align = alClient
     Columns = <

cprs/branches/foia-cprs/CPRS-Chart/fPtSel.pas

-              r459
+              r460
 {$OPTIMIZATION OFF}                              // REMOVE AFTER UNIT IS DEBUGGED
+{$define VAA}
 interface
 …
     FsortAscending: boolean;
     FLastPt: string;
+    FsortDirection: string;
+    FUserCancelled: boolean;
     procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer);
     procedure ClearIDInfo;
 …
     procedure RPLDisplay;
     procedure AlertList;
+    procedure ReformatAlertDateTime;
   public
     procedure Loaded; override;
   end;
 procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer);
+procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean);
 var
 …
   AliasString = ' -- ALIAS';
 procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer);
+procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean);
 { displays patient selection dialog (with optional notifications), updates Patient object }
 var
 …
         end;
       Notifications.Clear;
+      FsortCol := -1;
       AlertList;
       ClearIDInfo;
       if (IsRPL = '1') then                          // Deal with restricted patient list users.
         RPLDisplay;                                  // Removes unnecessary components from view.
+      FUserCancelled := FALSE;
       ShowModal;
+      UserCancelled := FUserCancelled;
     end;
   finally
 …
   if User.IsProvider then Encounter.Provider := User.DUZ;
   GetBAStatus(Encounter.Provider,Encounter.Location);
+  GetBAStatus(Encounter.Provider,Patient.DFN);
   //HDS00005025
+   if BILLING_AWARE then
+     if Assigned(UBAGLOBALS.BAOrderList) then UBAGLOBALS.BAOrderList.Clear;
+  if BILLING_AWARE then
+    if Assigned(UBAGLOBALS.BAOrderList) then UBAGLOBALS.BAOrderList.Clear;
+  FUserCancelled := FALSE;
   Close;
 end;
 …
 begin
   // Leave Patient object unchanged
+  FUserCancelled := TRUE;
   Close;
 end;
 …
         lstvAlerts.Clear;
         AlertList;
+        //display alerts sorted according to parameter settings:
+        FsortCol := -1;     //CA - display alerts in correct sort
+        FormShow(Sender);
       end;
     if Items.Count = 0 then ShowButts(False);
     if SelCount <= 0 then ShowButts(False);
   end;
   GetBAStatus(User.DUZ,Encounter.Location);
+  GetBAStatus(User.DUZ,Patient.DFN);
 end;
 …
   lstvAlerts.Clear;
   AlertList;
   FsortCol := 0;     //CA - display alerts in correct sort
+  FsortCol := -1;     //CA - display alerts in correct sort
   FormShow(Sender);  //CA - display alerts in correct sort
   if lstvAlerts.Items.Count = 0 then ShowButts(False);
 …
 function ConvertDate(var thisList: TStringList; listIndex: integer) : string;
+{
  CQ1075: Convert date portion from yyyy/mm/dd to mm/dd/yyyy
+ Convert date portion from yyyy/mm/dd to mm/dd/yyyy
+}
 var
 …
      for I := 0 to List.Count - 1 do
        begin
+       //CQ1075: Convert date portion from yyyy/mm/dd to mm/dd/yyyy
+       List[i] := ConvertDate(List, i);
+    //   List[i] := ConvertDate(List, i);  //cla commented out 8/9/04 CQ #4749
          if Piece(List[I], U, 1) <> 'Forwarded by: ' then
 …
   if ((FsortCol = Column.Index) and (not SortViaKeyboard)) then
+        FsortAscending := not FsortAscending
+     FsortAscending := not FsortAscending;
+  if FsortAscending then
+     FsortDirection := 'F'
   else
+     if Column.Index = 4 then
+        FsortAscending := false
+     else
+        FsortAscending := true;
+     FsortDirection := 'R';
   FsortCol := Column.Index;
+  lstvAlerts.AlphaSort;
+  if FsortCol = 4 then
+    ReformatAlertDateTime //  hds7397- ge 2/6/6 sort and display date/time column correctly - as requested
+  else
+     lstvAlerts.AlphaSort;
   SortViaKeyboard := false;
   //Set the Notifications sort method to last-used sort-type
   //ie., user clicked on which column header last use of CPRS?
   case Column.Index of
 : rCore.SetSortMethod('I');
 : rCore.SetSortMethod('P');
 : rCore.SetSortMethod('L');
 : rCore.SetSortMethod('U');
 : rCore.SetSortMethod('D');
 : rCore.SetSortMethod('M');
 : rCore.SetSortMethod('F');
+: rCore.SetSortMethod('I', FsortDirection);
+: rCore.SetSortMethod('P', FsortDirection);
+: rCore.SetSortMethod('L', FsortDirection);
+: rCore.SetSortMethod('U', FsortDirection);
+: rCore.SetSortMethod('D', FsortDirection);
+: rCore.SetSortMethod('M', FsortDirection);
+: rCore.SetSortMethod('F', FsortDirection);
   end;
 end;
 …
 //    pnlPrf.Visible := True;
   end
 //  else pnlPrf.Visible := False;
+  //else pnlPrf.Visible := False;
 end;
 …
   if lstvAlerts.SelCount <= 0 then ShowButts(False)
   else ShowButts(True);
   GetBAStatus(User.DUZ,Encounter.Location);
+  GetBAStatus(User.DUZ,Patient.DFN);
 end;
 …
+}
 var
+  sortResult: string;
   sortMethod: string;
 begin
+  sortMethod := rCore.GetSortMethod;
+  sortResult := rCore.GetSortMethod;
+  sortMethod := Piece(sortResult, U, 1);
+  FsortDirection := Piece(sortResult, U, 2);
+  if FsortDirection = 'F' then
+     FsortAscending := true
+  else
+     FsortAscending := false;
   case sortMethod[1] of
 …
 end;
+//hds7397- ge 2/6/6 sort and display date/time column correctly - as requested
+procedure  TfrmPtSel.ReformatAlertDateTime;
+var
+  I,J: Integer;
+  inDateStr, holdDayTime,srtDate: String;
+begin
+  // convert date to yyyy/mm/dd prior to sort.
+ for J := 0 to lstvAlerts.items.count -1 do
+  begin
+    inDateStr := '';
+    srtDate := '';
+    holdDayTime := '';
+    inDateStr := lstvAlerts.Items[j].SubItems[3];
+    srtDate := ( (Piece( Piece(inDateStr,'/',3), '@',1)) + '/' + Piece(inDateStr,'/',1) + '/' + Piece(inDateStr,'/',2) +'@'+ Piece(inDateStr, '@',2) );
+    lstvAlerts.Items[j].SubItems[3] := srtDate;
+  end;
+   //sort the listview records by date
+  lstvAlerts.AlphaSort;
+ // loop thru lstvAlerts change date to yyyy/mm/dd
+ // sort list
+ // change alert date/time back to mm/dd/yyyy@time for display
+  for I := 0 to lstvAlerts.items.Count -1 do
+   begin
+     inDateStr := '';
+     srtDate := '';
+     holdDayTime := '';
+     inDateStr :=   lstvAlerts.Items[i].SubItems[3];
+     holdDayTime := Piece(inDateStr,'/',3);  // dd@time
+     lstvAlerts.Items[i].SubItems[3] := (Piece(inDateStr, '/', 2) + '/' + Piece(holdDayTime, '@',1) +'/'
+                                            + Piece(inDateStr,'/',1) + '@' + Piece(holdDayTime,'@',2) );
+  end;
+end;
 Initialization
   SortViaKeyboard := false;

cprs/branches/foia-cprs/CPRS-Chart/fPtSelMsg.dfm

-              r459
+              r460
   Top = 421
   Width = 375
   Height = 165
+  Height = 174
   Caption = 'Patient Lookup Messages'
   Color = clBtnFace
 …
   DesignSize = (
 )
+)
   PixelsPerInch = 96
   TextHeight = 13
   object cmdClose: TButton
     Left = 158
     Top = 117
+    Top = 114
     Width = 60
     Height = 21
 …
     Top = 0
     Width = 367
     Height = 112
+    Height = 107
     Anchors = [akLeft, akTop, akRight, akBottom]
     Color = clCream

cprs/branches/foia-cprs/CPRS-Chart/fPtSelOptns.dfm

-              r459
+              r460
 object frmPtSelOptns: TfrmPtSelOptns
   Left = 457
   Top = 213
+  Left = 1354
+  Top = 190
   BorderStyle = bsNone
   Caption = 'frmPtSelOptns'
 …
       OnMouseClick = cboListMouseClick
       OnNeedData = cboListNeedData
+      CharsNeedMatch = 1
     end
     object cboDateRange: TORComboBox
 …
       OnExit = cboDateRangeExit
       OnMouseClick = cboDateRangeMouseClick
+      CharsNeedMatch = 1
     end
   end

cprs/branches/foia-cprs/CPRS-Chart/fPtSelOptns.pas

-              r459
+              r460
 end;
+procedure TfrmPtSelOptns.cboListNeedData(Sender: TObject;
+  const StartFrom: String; Direction, InsertAt: Integer);
+procedure TfrmPtSelOptns.cboListNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer);
+{CQ6363 Notes: This procedure was altered for CQ6363, but then changed back to its original form, as it is now.
+The problem is that in LOM1T, there are numerous entries in the HOSPITAL LOCATION file (44) that are lower-case,
+resulting in a "B" xref that looks like this:
+^SC("B","module 1x",2897) =
+^SC("B","pt",3420) =
+^SC("B","read",3146) =
+^SC("B","zz GIM/WONG NEW",2902) =
+^SC("B","zz bhost/arm",3076) =
+^SC("B","zz bhost/day",2698) =
+^SC("B","zz bhost/eve/ornelas",2885) =
+^SC("B","zz bhost/resident",2710) =
+^SC("B","zz bhost/sws",2946) =
+^SC("B","zz c&P ortho/patel",3292) =
+^SC("B","zz mhc md/kelley",320) =
+^SC("B","zz/mhc/p",1076) =
+^SC("B","zzMHC MD/THRASHER",1018) =
+^SC("B","zztest clinic",3090) =
+^SC("B","zzz-hbpc-phone-jung",1830) =
+^SC("B","zzz-hbpcphone cocohran",1825) =
+^SC("B","zzz-home service",1428) =
+^SC("B","zzz-phone-deloye",1834) =
+^SC("B","zzz/gmonti impotence",2193) =
+ASCII sort mode puts those entries at the end of the "B" xref, but when retrieved by CPRS and upper-cased, it
+messes up the logic of the combo box.  This problem has been around since there was a CPRS GUI, and the best
+possible fix is to require those entries to either be in all uppercase or be removed.  If that's cleaned up,
+the logic below will work correctly.
+}
 begin
   case frmPtSelOptns.SrcType of

cprs/branches/foia-cprs/CPRS-Chart/fReminderDialog.dfm

-              r459
+              r460
 object frmRemDlg: TfrmRemDlg
   Left = 256
   Top = 161
+  Left = 357
+  Top = 260
   Width = 545
   Height = 407
 …
     Caption = 'Label1'
   end
-  object lblFootnotes: TStaticText
-    Left = 0
-    Top = 365
-    Width = 537
-    Height = 15
-    Align = alBottom
-    AutoSize = False
-    Caption = ' * Indicates a Required Field'
-    TabOrder = 3
-  end
   object sb1: TScrollBox
     Left = 0
 …
     OnResize = sbResize
   end
-  object pnlBottom: TPanel
-    Left = 0
-    Top = 221
-    Width = 537
-    Height = 144
-    Align = alBottom
-    TabOrder = 2
-    object splText: TSplitter
-      Left = 1
-      Top = 94
-      Width = 535
-      Height = 3
-      Cursor = crVSplit
-      Align = alBottom
-    end
-    object reData: TRichEdit
-      Left = 1
-      Top = 97
-      Width = 535
-      Height = 46
-      Align = alBottom
-      Color = clCream
-      ReadOnly = True
-      ScrollBars = ssVertical
-      TabOrder = 2
-      WantReturns = False
-    end
-    object reText: TRichEdit
-      Left = 1
-      Top = 25
-      Width = 535
-      Height = 69
-      Align = alClient
-      Color = clCream
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Courier New'
-      Font.Style = []
-      ParentFont = False
-      ReadOnly = True
-      ScrollBars = ssBoth
-      TabOrder = 1
-      WantReturns = False
-      WordWrap = False
-    end
-    object pnlButtons: TORAutoPanel
-      Left = 1
-      Top = 1
-      Width = 535
-      Height = 24
-      Align = alTop
-      BevelOuter = bvNone
-      ParentShowHint = False
-      ShowHint = True
-      TabOrder = 0
-      object btnClear: TButton
-        Left = 2
-        Top = 2
-        Width = 66
-        Height = 21
-        Hint = 'Clear Reminder Resolutions for this Reminder'
-        Caption = 'Clear'
-        TabOrder = 0
-        OnClick = btnClearClick
-      end
-      object btnBack: TButton
-        Left = 263
-        Top = 2
-        Width = 66
-        Height = 21
-        Hint = 'Go back to the Previous Reminder Dialog'
-        Caption = '<  Back'
-        TabOrder = 3
-        OnClick = btnBackClick
-      end
-      object btnCancel: TButton
-        Left = 467
-        Top = 2
-        Width = 66
-        Height = 21
-        Hint = 'Cancel All Reminder Dialog Processing'
-        Cancel = True
-        Caption = 'Cancel'
-        TabOrder = 6
-        OnClick = btnCancelClick
-      end
-      object btnNext: TButton
-        Left = 331
-        Top = 2
-        Width = 66
-        Height = 21
-        Hint = 'Go on to the Next Reminder Dialog'
-        Caption = 'Next  >'
-        TabOrder = 4
-        OnClick = btnNextClick
-      end
-      object btnFinish: TButton
-        Left = 399
-        Top = 2
-        Width = 66
-        Height = 21
-        Hint = 'Finish Processing'
-        Caption = 'Finish'
-        TabOrder = 5
-        OnClick = btnFinishClick
-      end
-      object btnClinMaint: TButton
-        Left = 70
-        Top = 2
-        Width = 105
-        Height = 21
-        Hint = 'View the Clinical Maintenance Component'
-        Caption = 'Clinical &Maint'
-        TabOrder = 1
-        OnClick = btnClinMaintClick
-      end
-      object btnVisit: TButton
-        Left = 177
-        Top = 2
-        Width = 84
-        Height = 21
-        Caption = '&Visit Info'
-        TabOrder = 2
-        OnClick = btnVisitClick
-      end
-    end
-  end
   object sb2: TScrollBox
     Left = 0
 …
     OnResize = sbResize
   end
+  object pnlFrmBottom: TPanel
+    Left = 0
+    Top = 221
+    Width = 537
+    Height = 159
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    object pnlBottom: TPanel
+      Left = 0
+      Top = 0
+      Width = 537
+      Height = 144
+      Align = alClient
+      TabOrder = 0
+      object splText: TSplitter
+        Left = 1
+        Top = 94
+        Width = 535
+        Height = 3
+        Cursor = crVSplit
+        Align = alBottom
+      end
+      object reData: TRichEdit
+        Left = 1
+        Top = 97
+        Width = 535
+        Height = 46
+        Align = alBottom
+        Color = clCream
+        ReadOnly = True
+        ScrollBars = ssVertical
+        TabOrder = 2
+        WantReturns = False
+      end
+      object reText: TRichEdit
+        Left = 1
+        Top = 25
+        Width = 535
+        Height = 69
+        Align = alClient
+        Color = clCream
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Courier New'
+        Font.Style = []
+        ParentFont = False
+        ReadOnly = True
+        ScrollBars = ssBoth
+        TabOrder = 1
+        WantReturns = False
+        WordWrap = False
+      end
+      object pnlButtons: TORAutoPanel
+        Left = 1
+        Top = 1
+        Width = 535
+        Height = 24
+        Align = alTop
+        BevelOuter = bvNone
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        object btnClear: TButton
+          Left = 2
+          Top = 2
+          Width = 66
+          Height = 21
+          Hint = 'Clear Reminder Resolutions for this Reminder'
+          Caption = 'Clear'
+          TabOrder = 0
+          OnClick = btnClearClick
+        end
+        object btnBack: TButton
+          Left = 263
+          Top = 2
+          Width = 66
+          Height = 21
+          Hint = 'Go back to the Previous Reminder Dialog'
+          Caption = '<  Back'
+          TabOrder = 3
+          OnClick = btnBackClick
+        end
+        object btnCancel: TButton
+          Left = 467
+          Top = 2
+          Width = 66
+          Height = 21
+          Hint = 'Cancel All Reminder Dialog Processing'
+          Cancel = True
+          Caption = 'Cancel'
+          TabOrder = 6
+          OnClick = btnCancelClick
+        end
+        object btnNext: TButton
+          Left = 331
+          Top = 2
+          Width = 66
+          Height = 21
+          Hint = 'Go on to the Next Reminder Dialog'
+          Caption = 'Next  >'
+          TabOrder = 4
+          OnClick = btnNextClick
+        end
+        object btnFinish: TButton
+          Left = 399
+          Top = 2
+          Width = 66
+          Height = 21
+          Hint = 'Finish Processing'
+          Caption = 'Finish'
+          TabOrder = 5
+          OnClick = btnFinishClick
+        end
+        object btnClinMaint: TButton
+          Left = 70
+          Top = 2
+          Width = 105
+          Height = 21
+          Hint = 'View the Clinical Maintenance Component'
+          Caption = 'Clinical &Maint'
+          TabOrder = 1
+          OnClick = btnClinMaintClick
+        end
+        object btnVisit: TButton
+          Left = 177
+          Top = 2
+          Width = 84
+          Height = 21
+          Caption = '&Visit Info'
+          TabOrder = 2
+          OnClick = btnVisitClick
+        end
+      end
+    end
+    object lblFootnotes: TStaticText
+      Left = 0
+      Top = 144
+      Width = 537
+      Height = 15
+      Align = alBottom
+      AutoSize = False
+      Caption = ' * Indicates a Required Field'
+      TabOrder = 1
+    end
+  end
 end

cprs/branches/foia-cprs/CPRS-Chart/fReminderDialog.pas

-              r459
+              r460
   TfrmRemDlg = class(TForm)
     sb1: TScrollBox;
+    sb2: TScrollBox;
+    splTxtData: TSplitter;
+    Label1: TLabel;
+    pnlFrmBottom: TPanel;
     pnlBottom: TPanel;
+    splText: TSplitter;
     reData: TRichEdit;
     reText: TRichEdit;
 …
     btnNext: TButton;
     btnFinish: TButton;
-    sb2: TScrollBox;
-    splTxtData: TSplitter;
-    splText: TSplitter;
     btnClinMaint: TButton;
+    btnVisit: TButton;
     lblFootnotes: TStaticText;
-    btnVisit: TButton;
-    Label1: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 …
   reData.Color := ReadOnlyColor;
   reText.Color := ReadOnlyColor;
  (* FSCCond := EligbleConditions;
   FSCRelated  := SCC_NA;              AGP Change 25.2
+  FSCCond := EligbleConditions;
+ (* FSCRelated  := SCC_NA;
   FAORelated  := SCC_NA;
   FIRRelated  := SCC_NA;
+  FIRRelated  := SCC_NA;       AGP Change 25.2
   FECRelated  := SCC_NA;
   FMSTRelated := SCC_NA;
 …
   FCVRelated  := SCC_NA;
   with FSCCond do
     FSCPrompt := (SCAllow or AOAllow or IRAllow or ECAllow or MSTAllow or HNCAllow or CVAllow);  *)
+    FSCPrompt := (SCAllow or AOAllow or IRAllow or ECAllow or MSTAllow or HNCAllow or CVAllow); *)
   NotifyWhenRemindersChange(RemindersChanged);
   RemForm.Drawers.NotifyWhenRemTreeChanges(RemindersChanged);
 …
   begin
     Box := GetBox(TRUE);
     if Box.ControlCount > 0 then ClearControls; //AGP Change 25.7 this change should
+    if Box.ControlCount > 0 then ClearControls; //AGP Change 26.1 this change should
                                                 //resolve the problem with Duplicate CheckBoxes
                                                 //appearing on some reminder dialogs CQ #2843
 …
   msg, RemWipe: string;
+begin
+ //AGP 25.11 Move RemWipe section to cancel button to
+begin
+ //AGP 25.11 Added RemWipe section to cancel button to
  //flag the patient specific dialog to be destroy if not in process.
  RemWipe := '';
 …
     begin
       Result := TRUE;
       if Piece(FReminder.DlgData,U,3)='1' then RemWipe := Piece(FReminder.DlgData,U,1);
+      if FReminder.RemWipe = 1 then RemWipe := Piece(FReminder.DlgData,U,1);
     end
   else
 …
     for i := 0 to RemindersInProcess.Count-1 do
     begin
+      if Piece(TReminder(RemindersInProcess.Objects[i]).RemData,U,11)='1' then
+      //if Piece(TReminder(RemindersInProcess.Objects[i]).RemData,U,11)='1' then
+      if TReminderDialog(TReminder(RemindersInProcess.Objects[i])).RemWipe = 1 then
           begin
              if RemWipe ='' then RemWipe := TReminder(RemindersInProcess.Objects[i]).IEN
 …
               begin
                  Rem := FReminder;
                  if Piece(Rem.DlgData,U,3)='1' then
+                 if Rem.RemWipe = 1 then
                      RemWipe := Piece(Rem.DlgData,U,1);
               end
 …
               begin
                 Rem := TReminder(RemindersInProcess.Objects[i]);
                 if Piece(TReminder(RemindersInProcess.Objects[i]).RemData,U,11)='1' then
+                if TReminderDialog(TReminder(RemindersInProcess.Objects[i])).RemWipe = 1 then
                    begin
                      if RemWipe ='' then RemWipe := TReminder(RemindersInProcess.Objects[i]).IEN
 …
         begin
           PCEObj := RemForm.PCEObj;
       (* AGP Change 25.2 Remove this section base on the Clinical Workgroup decision
          if FSCPrompt and (ndSC in PCEObj.NeededPCEData) then
+        (* AGP CHANGE 23.2 Remove this section base on the Clinical Workgroup decision
+          if FSCPrompt and (ndSC in PCEObj.NeededPCEData) then
             btnVisitClick(nil);
           PCEObj.SCRelated  := FSCRelated;
 …
           PCEObj.MSTRelated := FMSTRelated;
           PCEObj.HNCRelated := FHNCRelated;
           PCEObj.CVRelated  := FCVRelated;  *)
+          PCEObj.CVRelated  := FCVRelated; *)
           if not FProcessingTemplate then
           begin
 …
                                     if(FVitalsDate = 0) then
                                     begin
                                       FVitalsDate := RemForm.PCEObj.VisitDateTime;
                                       StoreVitals := ValidVitalsDate(FVitalsDate, TRUE);
+                                      FVitalsDate := TRemData(TmpData.Objects[i]).Parent.VitalDateTime;
+                                      StoreVitals := ValidVitalsDate(FVitalsDate, TRUE, FALSE);  //AGP Change 26.1
                                       if (not StoreVitals) then break;
                                     end;
 …
                   VitalList.Insert(0, VitalDateStr     + FloatToStr(FVitalsDate));
                   VitalList.Insert(1, VitalPatientStr  + Patient.DFN);
+                  VitalList.Insert(2, VitalLocationStr + IntToStr(Encounter.Location));
+                  if IntToStr(Encounter.Location) <> '0' then //AGP change 26.9
+                     VitalList.Insert(2, VitalLocationStr + IntToStr(Encounter.Location))
+                  else
+                     VitalList.Insert(2, VitalLocationStr + IntToStr(RemForm.PCEObj.Location));;
                   Tmp := ValAndStoreVitals(VitalList);
                   if (Tmp <> 'True') then
 …
 begin
   if FVitalsDate = 0 then
     VitalsDate := RemForm.PCEObj.VisitDateTime
+    VitalsDate := FMNow  //AGP Change 26.1
   else
     VitalsDate := FVitalsDate;

cprs/branches/foia-cprs/CPRS-Chart/fReminderTree.dfm

-              r459
+              r460
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  OnKeyUp = FormKeyUp
   PixelsPerInch = 96
   TextHeight = 13
 …
         OnClick = mnuCoverSheetClick
       end
+      object mnuExit: TMenuItem
+        Caption = 'E&xit Available Reminders'
+        ShortCut = 27
+        OnClick = mnuExitClick
+      end
     end
   end

cprs/branches/foia-cprs/CPRS-Chart/fReminderTree.pas

-              r459
+              r460
     memEvalCat: TMenuItem;
     mnuCoverSheet: TMenuItem;
+    mnuExit: TMenuItem;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
 …
     procedure memEvalCatClick(Sender: TObject);
     procedure mnuCoverSheetClick(Sender: TObject);
-    procedure FormKeyUp(Sender: TObject; var Key: Word;
-      Shift: TShiftState);
     procedure tvRemNodeCaptioning(Sender: TObject; var Caption: String);
     procedure tvRemAddition(Sender: TObject; Node: TTreeNode);
     procedure tvRemDeletion(Sender: TObject; Node: TTreeNode);
+    procedure mnuExitClick(Sender: TObject);
   private
     FLinking: boolean;
 …
 end;
-procedure TfrmReminderTree.FormKeyUp(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = VK_ESCAPE then
-  begin
-    Key := 0;
-    Close;
-  end;
-end;
 procedure TfrmReminderTree.tvRemNodeCaptioning(Sender: TObject;
   var Caption: String);
 …
 end;
+procedure TfrmReminderTree.mnuExitClick(Sender: TObject);
+begin
+  Close;
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fRenewOutMed.dfm

-              r459
+              r460
 inherited frmRenewOutMed: TfrmRenewOutMed
+  Left = 338
+  Top = 413
+  Height = 257
+  Caption = 'Change Refills/Comments for Outpatient Medication'
+  Left = 334
+  Top = 436
+  Width = 364
+  Height = 227
+  Caption = 'Change Refills for Outpatient Medication'
   Position = poScreenCenter
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
-  object lblRefills: TLabel
-    Left = 8
-    Top = 80
-    Width = 28
-    Height = 13
-    Caption = 'Refills'
-  end
-  object lblComments: TLabel
-    Left = 8
-    Top = 123
-    Width = 49
-    Height = 13
-    Caption = 'Comments'
-    Enabled = False
-    Visible = False
-  end
-  object lblPickup: TLabel
-    Left = 74
-    Top = 81
-    Width = 38
-    Height = 13
-    Caption = 'Pick Up'
-  end
-  object cmdOK: TButton
-    Left = 267
-    Top = 201
-    Width = 72
-    Height = 21
-    Caption = 'OK'
-    Default = True
-    TabOrder = 3
-    OnClick = cmdOKClick
-  end
-  object cmdCancel: TButton
-    Left = 347
-    Top = 201
-    Width = 72
-    Height = 21
-    Cancel = True
-    Caption = 'Cancel'
-    TabOrder = 4
-    OnClick = cmdCancelClick
-  end
   object memOrder: TCaptionMemo
+    Left = 8
+    Top = 16
+    Width = 411
+    Height = 48
+    Left = 0
+    Top = 0
+    Width = 356
+    Height = 88
+    Align = alClient
     Color = clBtnFace
     ReadOnly = True
+    TabOrder = 5
+    ScrollBars = ssVertical
+    TabOrder = 0
     Caption = 'Order'
   end
+  object memComments: TCaptionMemo
+    Left = 8
+    Top = 137
+    Width = 411
+    Height = 48
+    Enabled = False
+  object pnlButtons: TPanel
+    Left = 0
+    Top = 152
+    Width = 356
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
     TabOrder = 2
+    Visible = False
+    Caption = 'Comments'
+    DesignSize = (
+)
+    object cmdOK: TButton
+      Left = 173
+      Top = 7
+      Width = 72
+      Height = 27
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      Default = True
+      TabOrder = 0
+      OnClick = cmdOKClick
+    end
+    object cmdCancel: TButton
+      Left = 248
+      Top = 7
+      Width = 103
+      Height = 27
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = 'Cancel'
+      TabOrder = 1
+      OnClick = cmdCancelClick
+    end
   end
+  object txtRefills: TCaptionEdit
+    Left = 8
+    Top = 94
+    Width = 49
+    Height = 21
+    TabOrder = 0
+    Caption = 'Refills'
+  end
+  object cboPickup: TORComboBox
+    Left = 74
+    Top = 95
+    Width = 106
+    Height = 21
+    Style = orcsDropDown
+    AutoSelect = True
+    Caption = 'Pick Up'
+    Color = clWindow
+    DropDownCount = 8
+    ItemHeight = 13
+    ItemTipColor = clWindow
+    ItemTipEnable = True
+    ListItemsOnly = True
+    LongList = False
+    MaxLength = 0
+    Pieces = '2'
+    Sorted = False
+    SynonymChars = '<>'
+    TabOrder = 1
+  object pnlMiddle: TPanel
+    Left = 0
+    Top = 88
+    Width = 356
+    Height = 64
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 3
+    object lblPickup: TLabel
+      Left = 100
+      Top = 7
+      Width = 38
+      Height = 13
+      Caption = 'Pick Up'
+    end
+    object lblRefills: TLabel
+      Left = 8
+      Top = 7
+      Width = 28
+      Height = 13
+      Caption = 'Refills'
+    end
+    object cboPickup: TORComboBox
+      Left = 100
+      Top = 31
+      Width = 125
+      Height = 21
+      Style = orcsDropDown
+      AutoSelect = True
+      Caption = 'Pick Up'
+      Color = clWindow
+      DropDownCount = 8
+      ItemHeight = 13
+      ItemTipColor = clWindow
+      ItemTipEnable = True
+      ListItemsOnly = True
+      LongList = False
+      LookupPiece = 0
+      MaxLength = 0
+      Pieces = '2'
+      Sorted = False
+      SynonymChars = '<>'
+      TabOrder = 0
+      CharsNeedMatch = 1
+    end
+    object txtRefills: TCaptionEdit
+      Left = 8
+      Top = 31
+      Width = 49
+      Height = 21
+      TabOrder = 1
+      Caption = 'Refills'
+    end
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fRenewOutMed.pas

-              r459
+              r460
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls;
+  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls, ExtCtrls;
 type
   TfrmRenewOutMed = class(TfrmAutoSz)
     lblRefills: TLabel;
     lblComments: TLabel;
+  TfrmRenewOutMed = class(TForm)
+    memOrder: TCaptionMemo;
+    pnlButtons: TPanel;
     cmdOK: TButton;
     cmdCancel: TButton;
+    memOrder: TCaptionMemo;
+    memComments: TCaptionMemo;
+    pnlMiddle: TPanel;
+    cboPickup: TORComboBox;
+    lblPickup: TLabel;
     txtRefills: TCaptionEdit;
+    lblPickup: TLabel;
+    cboPickup: TORComboBox;
+    lblRefills: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
 …
   try
     ResizeFormToFont(TForm(frmRenewOutMed));
-    frmRenewOutMed.memComments.SetTextBuf(PChar(Comments));
     frmRenewOutMed.memOrder.SetTextBuf(PChar(AnOrder.Text));
     frmRenewOutMed.txtRefills.Text := IntToStr(Refills);
 …
       Result := True;
       Refills := StrToIntDef(frmRenewOutMed.txtRefills.Text, Refills);
-      Comments := frmRenewOutMed.memComments.Text;
       Pickup := frmRenewOutMed.cboPickup.ItemID;
     end;

cprs/branches/foia-cprs/CPRS-Chart/fReports.dfm

-              r459
+              r460
 inherited frmReports: TfrmReports
   Left = 215
   Top = 126
   Width = 786
   Height = 377
+  Left = 456
+  Top = 200
+  Width = 725
+  Height = 654
   HelpContext = 9000
   Caption = 'Reports Page'
 …
   TextHeight = 13
   inherited shpPageBottom: TShape
     Top = 340
     Width = 778
+    Top = 617
+    Width = 717
     Height = 10
   end
   inherited sptHorz: TSplitter
     Left = 119
+    Height = 340
+    Height = 617
+    OnMoved = sptHorzMoved
   end
   inherited pnlLeft: TPanel
     Width = 119
     Height = 340
+    Height = 617
     object Splitter1: TSplitter
       Left = 0
       Top = 91
+      Top = 259
       Width = 119
       Height = 10
+      Height = 6
       Cursor = crVSplit
       Align = alBottom
+      Color = clBtnFace
+      ParentColor = False
       OnCanResize = Splitter1CanResize
     end
 …
       Top = 0
       Width = 119
       Height = 91
+      Height = 259
       Align = alClient
       BevelOuter = bvNone
 …
         Top = 19
         Width = 119
         Height = 72
+        Height = 240
         Align = alClient
         HideSelection = False
 …
     object pnlLeftBottom: TPanel
       Left = 0
       Top = 201
+      Top = 365
       Width = 119
       Height = 139
+      Height = 252
       Align = alBottom
+      Anchors = [akLeft, akTop, akRight, akBottom]
       BevelOuter = bvNone
       TabOrder = 1
+      Visible = False
       object lblQualifier: TOROffsetLabel
         Left = 0
         Top = 0
         Width = 119
         Height = 20
+        Height = 13
         Align = alTop
         HorzOffset = 3
 …
       object lblHeaders: TLabel
         Left = 0
         Top = 20
+        Top = 13
         Width = 119
         Height = 13
 …
       object lstHeaders: TORListBox
         Left = 0
         Top = 33
         Width = 119
         Height = 106
+        Top = 26
+        Width = 119
+        Height = 226
         Align = alClient
         ItemHeight = 13
 …
       object lstQualifier: TORListBox
         Left = 0
         Top = 33
         Width = 119
         Height = 106
+        Top = 26
+        Width = 119
+        Height = 226
         Style = lbOwnerDrawFixed
         Align = alClient
 …
         TabPositions = '10'
       end
+      object pnlViews: TORAutoPanel
+        Left = 0
+        Top = 26
+        Width = 119
+        Height = 226
+        Align = alClient
+        BevelOuter = bvNone
+        TabOrder = 3
+        Visible = False
+        object pnlTopViews: TPanel
+          Left = 0
+          Top = 0
+          Width = 119
+          Height = 80
+          Align = alTop
+          BevelOuter = bvNone
+          TabOrder = 0
+          DesignSize = (
+)
+          object lblDateRange: TLabel
+            Left = 0
+            Top = 63
+            Width = 58
+            Height = 13
+            Anchors = [akLeft, akTop, akRight]
+            Caption = 'Date Range'
+          end
+          object chkDualViews: TCheckBox
+            Left = 0
+            Top = 0
+            Width = 121
+            Height = 17
+            Anchors = [akLeft, akTop, akRight]
+            Caption = 'Split Views'
+            TabOrder = 0
+            OnClick = chkDualViewsClick
+          end
+          object btnGraphSelections: TORAlignButton
+            Left = 0
+            Top = 20
+            Width = 119
+            Height = 21
+            Anchors = [akLeft, akTop, akRight]
+            Caption = 'Select/Define...'
+            TabOrder = 1
+            OnClick = btnGraphSelectionsClick
+          end
+          object btnChangeView: TORAlignButton
+            Left = 0
+            Top = 41
+            Width = 119
+            Height = 21
+            Anchors = [akLeft, akTop, akRight]
+            Caption = 'Settings...'
+            TabOrder = 2
+            OnClick = btnChangeViewClick
+          end
+        end
+        object lstDateRange: TORListBox
+          Left = 0
+          Top = 80
+          Width = 119
+          Height = 146
+          Align = alClient
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ItemHeight = 13
+          ParentFont = False
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 1
+          OnClick = lstDateRangeClick
+          ItemTipColor = clWindow
+          LongList = False
+          Pieces = '2'
+          TabPositions = '10'
+        end
+      end
     end
     object pnlProcedures: TPanel
       Left = 0
       Top = 101
+      Top = 265
       Width = 119
       Height = 100
 …
       BevelOuter = bvNone
       TabOrder = 2
+      Visible = False
       object lblProcedures: TOROffsetLabel
         Left = 0
 …
         Align = alTop
         Caption = 'Radiology Procedures'
+        Color = clBtnFace
         HorzOffset = 2
+        ParentColor = False
         Transparent = False
         VertOffset = 2
 …
   inherited pnlRight: TPanel
     Left = 123
     Width = 655
     Height = 340
+    Width = 594
+    Height = 617
     object sptHorzRight: TSplitter
       Left = 0
       Top = 177
       Width = 655
+      Width = 594
       Height = 4
       Cursor = crVSplit
 …
       Left = 0
       Top = 0
       Width = 655
+      Width = 594
       Height = 57
       Align = alTop
 …
         Left = 0
         Top = 17
         Width = 655
+        Width = 594
         Height = 25
         Align = alTop
 …
         Left = 0
         Top = 0
         Width = 655
+        Width = 594
         Height = 17
         Align = alTop
 …
       object TabControl1: TTabControl
         Left = 0
+        Top = 40
+        Width = 655
+        Height = 17
+        Align = alBottom
+        Top = 42
+        Width = 594
+        Height = 20
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = []
         HotTrack = True
+        ParentFont = False
+        Style = tsButtons
+        TabHeight = 16
         TabOrder = 0
         TabStop = False
 …
       Left = 0
       Top = 181
       Width = 655
       Height = 159
+      Width = 594
+      Height = 436
       Align = alClient
       TabOrder = 2
+      object WebBrowser1: TWebBrowser
+        Left = 1
+        Top = 31
+        Width = 592
+        Height = 277
+        TabStop = False
+        Align = alClient
+        TabOrder = 1
+        OnDocumentComplete = WebBrowser1DocumentComplete
+        ControlData = {
+C0000002F3D0000A11C00000000000000000000000000000000000000000000
+          000000004C000000000000000000000001000000E0D057007335CF11AE690800
+B2E126208000000000000004C0000000114020000000000C000000000000046
+          8000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000100000000000000000000000000000000000000}
+      end
       object Memo1: TMemo
         Left = 1
         Top = 1
         Width = 653
+        Width = 592
         Height = 30
         TabStop = False
 …
         OnKeyUp = Memo1KeyUp
       end
-      object WebBrowser1: TWebBrowser
-        Left = 1
-        Top = 31
-        Width = 653
-        Height = 127
-        TabStop = False
-        Align = alClient
-        TabOrder = 1
-        OnDocumentComplete = WebBrowser1DocumentComplete
-        ControlData = {
-C0000007D430000200D00000000000000000000000000000000000000000000
-          000000004C000000000000000000000001000000E0D057007335CF11AE690800
-B2E126208000000000000004C0000000114020000000000C000000000000046
-          8000000000000000000000000000000000000000000000000000000000000000
-          00000000000000000100000000000000000000000000000000000000}
-      end
       object memText: TRichEdit
         Left = 1
         Top = 31
         Width = 653
+        Top = 308
+        Width = 592
         Height = 127
         Align = alClient
+        Align = alBottom
         Color = clCream
         Font.Charset = ANSI_CHARSET
 …
         ScrollBars = ssBoth
         TabOrder = 2
+        Visible = False
         WantReturns = False
         WordWrap = False
 …
       Left = 0
       Top = 57
       Width = 655
+      Width = 594
       Height = 120
       Align = alTop
 …
         Left = 1
         Top = 1
         Width = 653
+        Width = 592
         Height = 118
         Hint = 'To sort, click on column headers|'

cprs/branches/foia-cprs/CPRS-Chart/fReports.pas

-              r459
+              r460
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fHSplit, StdCtrls, ExtCtrls, ORCtrls, ComCtrls, Menus, uConst, ORDtTmRng,
   OleCtrls, SHDocVw, Buttons, ClipBrd, rECS, Variants;
+  OleCtrls, SHDocVw, Buttons, ClipBrd, rECS, Variants, StrUtils;
 type
 …
     tvProcedures: TORTreeView;
     lblProcTypeMsg: TOROffsetLabel;
+    pnlViews: TORAutoPanel;
+    chkDualViews: TCheckBox;
+    btnChangeView: TORAlignButton;
+    btnGraphSelections: TORAlignButton;
+    lblDateRange: TLabel;
+    lstDateRange: TORListBox;
+    pnlTopViews: TPanel;
     procedure lstQualifierClick(Sender: TObject);
     procedure GotoTop1Click(Sender: TObject);
 …
     procedure TabControl1Change(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string);
+    procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string);
     procedure lstHeadersClick(Sender: TObject);
     procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
 …
       var AllowCollapse: Boolean);
     procedure tvProceduresExpanding(Sender: TObject; Node: TTreeNode;
       var AllowExpansion: Boolean);
+      var AllowExpansion: Boolean);
     procedure tvProceduresClick(Sender: TObject);
     procedure tvProceduresChange(Sender: TObject; Node: TTreeNode);
     procedure tvProceduresKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+      Shift: TShiftState);
+    procedure chkDualViewsClick(Sender: TObject);
+    procedure btnChangeViewClick(Sender: TObject);
+    procedure btnGraphSelectionsClick(Sender: TObject);
+    procedure lstDateRangeClick(Sender: TObject);
+    procedure sptHorzMoved(Sender: TObject);
   private
 …
     procedure ProcessNotifications;
     procedure ShowTabControl;
+    //procedure UpdateRemoteStatus(aSiteID, aStatus: string);
+    procedure Graph(reportien: integer);
+    procedure GraphPanel(active: boolean);
   public
 …
   ulvSelectOn: boolean;             //flag turned on when multiple items in lvReports control have been selected
   uListState: Integer;              //Checked state of list of Adhoc components Checked: Abbreviation, UnChecked: Name
-  uNoRemote: boolean;
   uECSReport: TECSReport;           //Event Capture Report, initiated in fFrame when Click Event Capture under Tools
   UpdatingLvReports: Boolean;       //Currently updating lvReports
 …
 uses ORFn, rCore, rReports, fFrame, uCore, uReports, fReportsPrint,
      fReportsAdhocComponent1, activex, mshtml, dShared;
+     fReportsAdhocComponent1, activex, mshtml, dShared, fGraphs, rGraphs;  //*****
 const
 …
   uHTMLPatient: ANSIstring;
   uRptID: String;
+  uDirect: String;
   uEmptyImageList: TImageList;
   ColumnToSort: Integer;
   ColumnSortForward: Boolean;
+  GraphForm: TfrmGraphs;
+  GraphFormActive: boolean;
 procedure TfrmReports.ClearPtData;
 …
   TabControl1.Visible := false;
   TabControl1.TabStop := false;
+  if (GraphForm <> nil) and GraphFormActive then
+  with GraphForm do
+  begin
+    GraphForm.SendToBack;
+    Initialize;
+    DisplayData('top');
+    DisplayData('bottom');
+    lstCheck.Items.Clear;
+    GraphFormActive := false;
+  end;
+  begin
+  end;
+end;
+procedure TfrmReports.Graph(reportien: integer);
+begin
+  if GraphForm = nil then
+  begin
+    GraphForm := TfrmGraphs.Create(self);
+    try
+      with GraphForm do
+      begin
+        if btnClose.Tag = 1 then
+          Exit;
+        Parent := pnlRight;
+        Align := alClient;
+        pnlFooter.Tag := 1;   //suppresses bottom of graph form
+        pnlBottom.Height := 1;
+        pnlMain.BevelInner := bvLowered;
+        pnlMain.BevelOuter := bvRaised;
+        pnlMain.Tag := reportien;
+        Initialize;
+        ResizeAnchoredFormToFont(GraphForm);
+        Show;
+        DisplayData('top');
+        DisplayData('bottom');
+        lstCheck.Items.Clear;
+        GraphPanel(true);
+        lstTypes.Hint := Patient.DFN;
+        BringToFront;
+      end;
+    finally
+      if GraphForm.btnClose.Tag = 1 then
+      begin
+        GraphFormActive := false;
+        GraphForm.Free;
+        GraphForm := nil;
+      end
+      else
+        GraphFormActive := true;
+    end;
+  end
+  else if GraphForm.btnClose.Tag = 1 then
+    Exit
+  else if GraphFormActive and (GraphForm.lstTypes.Hint = Patient.DFN) then
+  begin   // displaying same patient
+    if Tag <> reportien then
+    with GraphForm do
+    begin  // new report
+      pnlMain.Tag := reportien;
+      Initialize;
+      //DisplayData('top');
+      //DisplayData('bottom');
+      lstCheck.Items.Clear;
+      GraphPanel(true);
+      BringToFront;
+    end;
+    //no action
+  end
+  else if GraphForm.lstTypes.Hint = Patient.DFN then
+  begin   // same patient, bring back graph
+    GraphPanel(true);
+    BringToFront;
+    GraphFormActive := true;
+  end
+  else
+  with GraphForm do
+  begin  // new patient
+    pnlMain.Tag := reportien;
+    Initialize;
+    DisplayData('top');
+    DisplayData('bottom');
+    lstCheck.Items.Clear;
+    lstTypes.Hint := Patient.DFN;
+    GraphPanel(true);
+    BringToFront;
+    GraphFormActive := true;
+  end;
+end;
+procedure TfrmReports.GraphPanel(active: boolean);
+var
+  aQualifier, aStartTime, aStopTime: string;
+begin
+  if active then
+  begin
+    pnlLeftBottom.Height := pnlLeft.Height div 2;
+    pnlViews.Height := pnlLeftBottom.Height;
+    if pnlLeft.Height < 200 then
+      pnlTopViews.Height := 3
+    else
+      pnlTopViews.Height := 80;
+    lblQualifier.Visible := false;
+    lstQualifier.Visible := false;
+    pnlViews.Visible := true;
+    if lstDateRange.Tag = 0 then
+    begin
+      lstDateRange.Tag := 1;
+      aQualifier  :=  PReportTreeObject(tvReports.Selected.Data)^.Qualifier;
+      aStartTime  :=  Piece(aQualifier,';',1);
+      aStopTime   :=  Piece(aQualifier,';',2);
+      GraphForm.cboDateRange.Items.Add(
+        '^' + aStartTime + ' to ' + aStopTime +'^^^' + aStartTime + ';' +  aStopTime +
+        '^' + floattostr(strtofmdatetime(aStartTime)) + '^' + floattostr(strtofmdatetime(aStopTime)));
+      lstDateRange.Items := GraphForm.cboDateRange.Items;
+      //lstDateRange.ItemIndex := lstDateRange.Items.Count - 1;
+      lstDateRange.ItemIndex := lstDateRange.Items.Count - 2;      //set to all results till fixed
+      lstDateRangeClick(self);
+    end;
+    pnlLeftBottom.Visible := true;
+    splitter1.Visible := true;
+  end
+  else
+  begin
+    lblQualifier.Visible := true;
+    lstQualifier.Visible := true;
+    pnlViews.Visible := false;
+    pnlLeftBottom.Height := lblHeaders.Height + lblQualifier.Height + 90;
+  end;
 end;
 …
         end;
     end;
+  if (uReportType = 'G') and GraphFormActive then
+    with GraphForm do
+    begin
+      if (lvwItemsTop.SelCount < 1) and (lvwItemsBottom.SelCount < 1) then
+        begin
+          InfoBox('There are no items graphed.', 'No Items to Print', MB_OK);
+          Exit;
+        end
+      else
+        begin
+          mnuPopGraphPrintClick(mnuPopGraphPrint);
+          Exit;
+        end;
+    end;
   if uQualifierType = QT_DATERANGE then
     begin      //      = 2
 …
   uUpdateStat := false;
   ulvSelectOn := false;
-  uNoRemote := false;
   uListState := GetAdhocLookup();
   memText.SelStart := 0;
 …
                   //the preferred method would be to use headers and footers
                   //so this is just an interim solution.
+  pnlLeftBottom.Visible := False;
+  if not GraphFormActive then
+    pnlLeftBottom.Visible := False;
   if InitPage then
     begin
 …
                         begin
                         lstQualifier.Clear;
                         tvProcedures.Items.Clear;
+                        tvProcedures.Items.Clear;
                         lblProcTypeMsg.Visible := FALSE;
                         lvReports.SmallImages := uEmptyImageList;
 …
                         end;
     CC_NOTIFICATION:  ProcessNotifications;
   end;
+  end;
 end;
 …
   uHTMLDoc := '';
   WebBrowser1.Navigate('about:blank');
   tvProcedures.Items.Clear;
+  tvProcedures.Items.Clear;
   lblProcTypeMsg.Visible := FALSE;
   lvReports.SmallImages := uEmptyImageList;
 …
         begin
           if addgrandchild = true then
             currentNode := tvReports.Items.AddChildObject(grandParentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,14)))
+            currentNode := tvReports.Items.AddChildObject(grandParentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,15)))
           else
             if addchild = true then
               begin
                 currentNode := tvReports.Items.AddChildObject(parentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,14)));
+                currentNode := tvReports.Items.AddChildObject(parentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,15)));
                 addgrandchild := true;
                 grandParentNode := currentNode;
 …
             else
               begin
                 currentNode := tvReports.Items.AddObject(currentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,14)));
+                currentNode := tvReports.Items.AddObject(currentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,15)));
                 parentNode := currentNode;
                 addchild := true;
 …
           begin
             currentNode := tvReports.Items.AddObject(currentNode,Piece(x,'^',2),MakeReportTreeObject(x));
-            //addchild := true;
             parentNode := currentNode;
           end
 …
   aTmpAray: TStringList;
   aColCtr, aCurCol, aCurRow, aColID: integer;
   x,c,aSite: string;
+  x,y,z,c,aSite: string;
   ListItem: TListItem;
 begin
 …
   aErr := 0;
   ListItem := nil;
-  //RowObjects.Clear;
   case uQualifierType of
     QT_HSCOMPONENT:
 …
                                 if piece(uColumns.Strings[aCurCol],'^',4) = '1' then
                                   c := c + '...';
+                                ListItem.SubItems.Add(c);
+                                z := piece(c,'^',1);
+                                y := copy(c, (pos('^', c)), 9999);
+                                if pos('^',y) > 0 then
+                                  begin
+                                    while pos('^',y) > 0 do
+                                      begin
+                                        y := copy(y, (pos('^', y)+1), 9999);
+                                        z := z + '^' + y;
+                                      end;
+                                        ListItem.SubItems.Add(z);
+                                  end
+                                else
+                                  begin
+                                    ListItem.SubItems.Add(y);
+                                  end;
                               end;
                             RowObjects.Add(aSite, IntToStr(aCurRow) + ':' + IntToStr(aCurCol), uColumns.Strings[aCurCol], aTmpAray);
 …
                       if aColID = aCurCol then
                         begin
+                          aTmpAray.Add(piece(x,'^',2));
+                          z := '';
+                          y := piece(x,'^',2);
+                          if length(y) > 0 then z := y;
+                          y := copy(x, (pos('^', x)+1), 9999);
+                          if pos('^',y) > 0 then
+                            begin
+                              while pos('^',y) > 0 do
+                                begin
+                                  y := copy(y, (pos('^', y)+1), 9999);
+                                  z := z + '^' + y;
+                                end;
+                              aTmpAray.Add(z);
+                            end
+                          else
+                            begin
+                              aTmpAray.Add(y);
+                            end;
                           continue;
                         end;
 …
                     aCurCol := aColID;
                     Inc(aColCtr);
+                    aTmpAray.Add(piece(x,'^',2));
+                    y := '';
+                    for k := 2 to 10 do
+                      if length(piece(x,'^',k)) > 0 then
+                        begin
+                          if length(y) > 0 then y := y + '^' + piece(x,'^',k)
+                          else y := y + piece(x,'^',k);
+                        end;
+                    aTmpAray.Add(y);
                     if aColCtr > 0 then
                       while aColCtr < aCurCol do
 …
 var
   MoreID: String;  //Restores MaxOcc value
   aRemote: string;
+  aRemote, aHDR: string;
   i: integer;
 begin
 …
   MoreID := ';' + Piece(uQualifier,';',3);
   aRemote :=  piece(uRemoteType,'^',1);
+  aHDR := piece(uRemoteType,'^',7);
   SetPiece(uRemoteType,'^',5,lstQualifier.ItemID);
   uHSComponents.Clear;
   uHSAll.Clear;
+  memText.Lines.Clear;
+  tvProcedures.Items.Clear;
+  lblProcTypeMsg.Visible := FALSE;
+  lvReports.SmallImages := uEmptyImageList;
+  lvReports.Items.Clear;
+  tvProcedures.Items.Clear;
+  lblProcTypeMsg.Visible := FALSE;
   uHTMLDoc := '';
   if uReportType = 'H' then
 …
    TRemoteSite(RemoteSites.SiteList.Items[i]).ReportClear;
   uRemoteCount := 0;
+  DisplayHeading(lstQualifier.ItemID + MoreID);
+  if aHDR = '1' then
+    DisplayHeading(lstQualifier.ItemID)
+  else
+    DisplayHeading(lstQualifier.ItemID + MoreID);
   if lstQualifier.ItemID = 'ds' then
     begin
 …
   StatusText('Retrieving ' + lblTitle.Caption + '...');
   Screen.Cursor := crHourGlass;
-  memText.Lines.Clear;
   uReportInstruction := #13#10 + 'Retrieving data...';
   memText.Lines.Add(uReportInstruction);
 …
   case uQualifierType of
       QT_HSCOMPONENT:
+        begin      //      = 5
+          if (length(piece(uHState,';',2)) > 0) then //and (chkText.Checked = false) then
+        begin     //      = 5
+          lvReports.SmallImages := uEmptyImageList;
+          lvReports.Items.Clear;
+          memText.Lines.Clear;
+          RowObjects.Clear;
+          if ((aRemote = '1') or (aRemote = '2')) then
+            GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState, aHDR);
+          if (length(piece(uHState,';',2)) > 0) then
             begin
+              LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
+              memText.Lines.Clear;
+              //memText.Lines.Assign(uLocalReportData);
+              RowObjects.Clear;
+              if not(aRemote = '2') then
+                LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
               LoadListView(uLocalReportData);
             end
           else
             begin
               if aRemote = '1' then
+              if ((aRemote = '1') or (aRemote = '2')) then
                 ShowTabControl;
               pnlRightMiddle.Visible := false;
 …
                 end;
             end;
-          if (aRemote = '1') and (uNoRemote = false) then
-            GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
         end;
       QT_HSWPCOMPONENT:
         begin      //      = 6
+          lvReports.SmallImages := uEmptyImageList;
+          lvReports.Items.Clear;
+          RowObjects.Clear;
+          memText.Lines.Clear;
+          if ((aRemote = '1') or (aRemote = '2'))  then
+            begin
+              Screen.Cursor := crDefault;
+              GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState, aHDR);
+            end;
           if (length(piece(uHState,';',2)) > 0) then
             begin
+              LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
+              memText.Lines.Clear;
+              //memText.Lines.Assign(uLocalReportData);
+              RowObjects.Clear;
+              if not(aRemote = '2') then
+                LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
               LoadListView(uLocalReportData);
             end
           else
             begin
               if aRemote = '1' then
+              if ((aRemote = '1') or (aRemote = '2')) then
                 ShowTabControl;
               pnlRightMiddle.Visible := false;
+              LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
+              if uLocalReportData.Count < 1 then
+              if not (aRemote = '2') then
                 begin
+                  uReportInstruction := '<No Report Available>';
+                  memText.Lines.Add(uReportInstruction);
+                end
+              else
+                QuickCopy(uLocalReportData,memText);
+            end;
+          if (aRemote = '1') and (uNoRemote = false) then
+            begin
+              Screen.Cursor := crDefault;
+              GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
+                  LoadReportText(uLocalReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
+                  if uLocalReportData.Count < 1 then
+                    begin
+                      uReportInstruction := '<No Report Available>';
+                      memText.Lines.Add(uReportInstruction);
+                    end
+                  else
+                    QuickCopy(uLocalReportData,memText);
+                end;
             end;
         end
 …
         begin
           Screen.Cursor := crDefault;
           GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState);
           if Pos('ECS',Piece(uRptID,':',1))>0 then
+          GoRemote(uRemoteReportData, uRptID, lstQualifier.ItemID + MoreID, uReportRPC, uHState, aHDR);
+          if Pos('ECS',Piece(uRptID,':',1))>0 then
           begin
             if Pos('OR_ECS1',uRptID)>0 then
 …
   RowObjects := TRowObject.Create;
   uRemoteCount := 0;
+  GraphFormActive := false;
 end;
 …
             break;
           end;
-      //if not Found then i := -1;
     end;
 …
   case Notifications.Followup of
     NF_IMAGING_RESULTS, NF_ABNORMAL_IMAGING_RESULTS, NF_IMAGING_RESULTS_AMENDED:
+    NF_IMAGING_RESULTS, NF_ABNORMAL_IMAGING_RESULTS, NF_IMAGING_RESULTS_AMENDED:
       begin
         tvReports.Selected := tvReports.Items[i];
 …
   i,j,fail: integer;
   r0,aSite: String;
+  aHDR, aID, aRet: String;
 begin
   inherited;
 …
             if piece(r0,'^',1) = '1' then
               begin
+                aHDR := piece(TRemoteSite(Items[i]).CurrentReportQuery, '^', 13);
+                aID := piece(piece(TRemoteSite(Items[i]).CurrentReportQuery, '^', 2),':',1);
+                if aHDR = '1' then
+                  begin
+                    ModifyHDRData(aRet, TRemoteSite(Items[i]).RemoteHandle ,aID);
+                  end;
+                GetRemoteData(TRemoteSite(Items[i]).Data, TRemoteSite(Items[i]).RemoteHandle,Items[i]);
                 RemoteReports.Add(TRemoteSite(Items[i]).CurrentReportQuery,
                   TRemoteSite(Items[i]).RemoteHandle);
-                GetRemoteData(TRemoteSite(Items[i]).Data,
-                  TRemoteSite(Items[i]).RemoteHandle,Items[i]);
                 TRemoteSite(Items[i]).RemoteHandle := '';
                 TabControl1.OnChange(nil);
                 if (length(piece(uHState,';',2)) > 0) then //and (chkText.Checked = false) then
+                if (length(piece(uHState,';',2)) > 0) then
                   begin
                     uRemoteReportData.Clear;
                     QuickCopy(TRemoteSite(Items[i]).Data,uRemoteReportData);
                     fail := 0;
-                    //LoadListView(uRemoteReportData);
                     if uRemoteReportData.Count > 0 then
                       begin
 …
               begin
                 uRemoteCount := uRemoteCount + 1;
                 if uRemoteCount > (90 * Count) then
+                if uRemoteCount > 90 then
                   begin
                     TRemoteSite(Items[i]).RemoteHandle := '';
 …
 end;
 procedure TfrmReports.GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string);
+procedure TfrmReports.GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string);
 var
   i, j: integer;
   LocalHandle, Query, Report: string;
   HSType, DaysBack, ExamID, MaxOcc: string;
   Alpha, Omega: double;
+  Alpha, Omega, Trans: double;
 begin
   HSType := '';
 …
   Alpha := 0;
   Omega := 0;
+  if UseVistaWeb then
+    begin
+      if AHDR = '1' then
+        InfoBox('You must use VistaWeb to view this report. To use RDV Classic, change your default setting.',
+                'Use VistaWeb for HDR data', MB_OK);
+      Exit;
+    end;
+  if AHDR = '1' then
+    begin
+      if HDRActive = '0' then
+        begin
+          InfoBox('The HDR is currently inactive.' + CRLF + 'Unable to retrieve HDR data at this time.', 'HDR Error', MB_OK);
+          Exit;
+        end;
+      if (Piece(AItem, ':', 1) = 'OR_VWAL') or (Piece(AItem, ':', 1) = 'OR_VWRX') then
+        AQualifier := 'T-75000;T+75000;99999';
+      if (Piece(AItem, ':', 1) = 'OR_VWVS') and (CharAt(AQualifier, 1) = ';') then
+        AQualifier := 'T-75000;T+75000;99999';
+    end;
+  if CharAt(AQualifier, 1) = 'd' then
+    begin
+      DaysBack := Copy(AQualifier, 2, Length(AQualifier));
+      AQualifier := ('T-' + Piece(DaysBack,';',1) + ';T;' + Pieces(AQualifier,';',2,3));
+      DaysBack := '';
+    end;
   if CharAt(AQualifier, 1) = 'T' then
     begin
+      if Piece(AQualifier,';',1) = 'T-0' then SetPiece(AQualifier,';',1,'T');
+      if (Piece(Aqualifier,';',1) = 'T') and (Piece(Aqualifier,';',2) = 'T')
+        then SetPiece(AQualifier,';',2,'T+1');
       Alpha := StrToFMDateTime(Piece(AQualifier,';',1));
       Omega := StrToFMDateTime(Piece(AQualifier,';',2));
+      if Alpha > Omega then
+        begin
+          Trans := Omega;
+          Omega := Alpha;
+          Alpha := Trans;
+        end;
       MaxOcc := Piece(AQualifier,';',3);
       SetPiece(AHSTag,';',4,MaxOcc);
     end;
-  if CharAt(AQualifier, 1) = 'd' then DaysBack := Copy(AQualifier, 2, Length(AQualifier));
   if CharAt(AQualifier, 1) = 'h' then HSType   := Copy(AQualifier, 2, Length(AQualifier));
   if CharAt(AQualifier, 1) = 'i' then ExamID   := Copy(AQualifier, 2, Length(AQualifier));
   with RemoteSites.SiteList do for i := 0 to Count - 1 do
+    begin
+    if (AHDR='1') and (LeftStr(TRemoteSite(Items[i]).SiteID, 5) = '200HD') then
+      begin
+        TRemoteSite(Items[i]).Selected := true;
+        frmFrame.lstCIRNLocations.Checked[i+2] := true;
+      end;
     if TRemoteSite(Items[i]).Selected then
       begin
         TRemoteSite(Items[i]).ReportClear;
+        if (LeftStr(TRemoteSite(Items[i]).SiteID, 5) = '200HD') and not(AHDR = '1') then
+          begin
+            TRemoteSite(Items[i]).QueryStatus := '1^Not Included';
+            UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'NOT INCLUDED');
+            TabControl1.OnChange(nil);
+            continue;
+          end;
+        if (AHDR = '1') and not(LeftStr(TRemoteSite(Items[i]).SiteID, 5) = '200HD') then
+          begin
+            TRemoteSite(Items[i]).QueryStatus := '1^Not Included';
+            UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'NOT INCLUDED');
+            TabControl1.OnChange(nil);
+            continue;
+          end;
         TRemoteSite(Items[i]).CurrentReportQuery := 'Report' + Patient.DFN + ';'
           + Patient.ICN + '^' + AItem + '^^^' + ARpc + '^' + HSType +
           '^' + DaysBack + '^' + ExamID + '^' + DateToStr(Alpha) + '^' +
           DateToStr(Omega) + '^' + TRemoteSite(Items[i]).SiteID + '^' + AHSTag;
+          '^' + DaysBack + '^' + ExamID + '^' + FloatToStr(Alpha) + '^' +
+          FloatToStr(Omega) + '^' + TRemoteSite(Items[i]).SiteID + '^' + AHSTag + '^' + AHDR;
         LocalHandle := '';
         Query := TRemoteSite(Items[i]).CurrentReportQuery;
 …
         else
           begin
+            RemoteQuery(Dest, AItem, HSType, Daysback, ExamID, Alpha, Omega, TRemoteSite(Items[i]).SiteID, ARpc, AHSTag);
+            if Dest[0] = '' then
+            if uDirect = '1' then
               begin
+                TRemoteSite(Items[i]).QueryStatus := '-1^Communication error';
+                UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID,'Communication error');
+                StatusText('Retrieving reports from ' + TRemoteSite(Items[i]).SiteName + '...');
+                TRemoteSite(Items[i]).QueryStatus := '1^Direct Call';
+                UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Direct Call');
+                DirectQuery(Dest, AItem, HSType, Daysback, ExamID, Alpha, Omega, TRemoteSite(Items[i]).SiteID, ARpc, AHSTag);
+                if Copy(Dest[0],1,2) = '-1' then
+                  begin
+                    TRemoteSite(Items[i]).QueryStatus := '-1^Communication error';
+                    UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID,'Communication error');
+                  end
+                else
+                  begin
+                    QuickCopy(Dest,TRemoteSite(Items[i]).Data);
+                    TRemoteSite(Items[i]).RemoteHandle := '';
+                    TRemoteSite(Items[i]).QueryStatus := '1^Done';
+                    UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'Done');
+                    TabControl1.OnChange(nil);
+                    if (length(piece(uHState,';',2)) > 0) then
+                      LoadListView(TRemoteSite(Items[i]).Data);
+                  end;
+                StatusText('');
               end
             else
               begin
+                TRemoteSite(Items[i]).RemoteHandle := Dest[0];
+                TRemoteSite(Items[i]).QueryStatus := '0^initialization...';
+                UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'initialization');
+                Timer1.Enabled := True;
+                StatusText('Retrieving reports from '
+                  + TRemoteSite(Items[i]).SiteName + '...');
+                RemoteQuery(Dest, AItem, HSType, Daysback, ExamID, Alpha, Omega, TRemoteSite(Items[i]).SiteID, ARpc, AHSTag);
+                if Dest[0] = '' then
+                  begin
+                    TRemoteSite(Items[i]).QueryStatus := '-1^Communication error';
+                    UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID,'Communication error');
+                  end
+                else
+                  begin
+                    TRemoteSite(Items[i]).RemoteHandle := Dest[0];
+                    TRemoteSite(Items[i]).QueryStatus := '0^initialization...';
+                    UpdateRemoteStatus(TRemoteSite(Items[i]).SiteID, 'initialization');
+                    Timer1.Enabled := True;
+                    StatusText('Retrieving reports from ' + TRemoteSite(Items[i]).SiteName + '...');
+                  end;
               end;
           end;
       end;
+    end;
 end;
 …
   uEmptyImageList.Free;
   uECSReport.Free;
+  if GraphForm <> nil then GraphForm.Release;
 end;
 …
   aHeading, aReportType, aRPC, aQualifier, aStartTime, aStopTime, aMax, aRptCode, aRemote, aCategory, aSortOrder, aDaysBack, x: string;
   aIFN: integer;
   aID, aHSTag, aRadParam, aColChange: string;
+  aID, aHSTag, aRadParam, aColChange, aDirect, aHDR, aQualifierID: string;
   CurrentParentNode, CurrentNode: TTreeNode;
 begin
 …
   aCategory   :=  PReportTreeObject(tvReports.Selected.Data)^.Category;
   aSortOrder  :=  PReportTreeObject(tvReports.Selected.Data)^.SortOrder;
   aDaysBack  :=  PReportTreeObject(tvReports.Selected.Data)^.MaxDaysBack;
+  aDaysBack   :=  PReportTreeObject(tvReports.Selected.Data)^.MaxDaysBack;
   aIFN        :=  StrToIntDef(PReportTreeObject(tvReports.Selected.Data)^.IFN,0);
+  aDirect     :=  PReportTreeObject(tvReports.Selected.Data)^.Direct;
+  aHDR        :=  PReportTreeObject(tvReports.Selected.Data)^.HDR;
   aStartTime  :=  Piece(aQualifier,';',1);
   aStopTime   :=  Piece(aQualifier,';',2);
   aMax        :=  Piece(aQualifier,';',3);
   aRptCode    :=  Piece(aQualifier,';',4);
+  aQualifierID:= '';
   if length(uColChange) > 0 then
     begin
 …
   uReportRPC := aRPC;
   uRptID := aID;
+  uDirect := aDirect;
   uReportType := aReportType;
   uQualifier := aQualifier;
   uSortOrder := aSortOrder;
+  uRemoteType := aRemote + '^' + aReportType + '^' + IntToStr(aIFN) + '^' + aHeading + '^' + aRptCode + '^' + aDaysBack;
+  //edtMax.Text := aMax;
+  {if chkText.Checked = true then
+    aHState := aHSTag
+  else
+    aHState := Pieces(aHSTag,';',1,2); }
+  uRemoteType := aRemote + '^' + aReportType + '^' + IntToStr(aIFN) + '^' + aHeading + '^' + aRptCode + '^' + aDaysBack + '^' + aHDR;
+  pnlRightTop.Height := lblTitle.Height;  // see below
   RedrawSuspend(tvReports.Handle);
   RedrawSuspend(memText.Handle);
 …
   TabControl1.TabStop := false;
   sptHorzRight.Visible := false;
+  pnlRightTop.Height := lblTitle.Height;
+  lblProcTypeMsg.Visible := FALSE;
+  lblProcTypeMsg.Visible := FALSE;
   pnlRightMiddle.Visible := false;
   pnlProcedures.Visible := FALSE;
   if aRemote = '1' then
+  pnlProcedures.Visible := FALSE;
+  if (aRemote = '1') or (aRemote = '2') then
     if not(uReportType = 'V') then
       if TabControl1.Tabs.Count > 1 then
 …
         end;
   StatusText('');
-  //**
   uHTMLDoc := '';
   WebBrowser1.Navigate('about:blank');
-  //**
   memText.Lines.Clear;
   memText.Parent := pnlRightBottom;
 …
   lvReports.Columns.Clear;
   uHSComponents.Clear;
+  DisplayHeading('');
   if uReportType = 'H' then
     begin
       pnlRightMiddle.Visible := false;
-      //lvReports.Visible := false;
       pnlRightBottom.Visible := true;
       WebBrowser1.Visible := true;
 …
             RedrawSuspend(lvReports.Handle);
             Items.BeginUpdate;
-            //Align := alTop;
             ViewStyle := vsReport;
             ColumnHeaders(uColumns, IntToStr(aIFN));
 …
                   else
                     uNewColumn.Width := ColumnHeaderWidth;  //ColumnTextWidth for width of text
                 if (i = 0) and ((aRemote <> '1') or (TabControl1.Tabs.Count < 2)) then
+                if (i = 0) and (((aRemote <> '2') and (aRemote <> '1')) or ((TabControl1.Tabs.Count < 2) and (not (aHDR = '1')))) then
                   uNewColumn.Width := 0;
               end;
 …
     end;
   Screen.Cursor := crHourGlass;
+  if (GraphForm <> nil) and (aReportType <> 'G') then
+  begin
+    GraphForm.SendToBack;
+    GraphPanel(false);
+    GraphFormActive := false;
+  end;
+  if aReportType = 'G' then
+    Graph(aIFN)
+  else
   if aReportType = 'M' then
     begin
 …
         QT_OTHER:
           begin      //      = 0
+            memText.Lines.Clear;
             If copy(aRptCode,1,2) = 'h0' then  //HS Adhoc
               begin
 …
                     TRemoteSite(RemoteSites.SiteList[j]).LabClear;
                   end;
-                memText.Clear;
                 uHTMLDoc := '';
                 if WebBrowser1.Visible = true then WebBrowser1.Navigate('about:blank');
 …
                 splitter1.Visible := false;
                 StatusText('Retrieving ' + tvReports.Selected.Text + '...');
                 GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState);
+                GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState, aHDR);
                 uReportInstruction := #13#10 + 'Retrieving data...';
                 TabControl1.OnChange(nil);
 …
                 begin
                   lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                  uNoRemote := true;
+                  lvReports.SmallImages := uEmptyImageList;
+                  lvReports.Items.Clear;
                   lstQualifierClick(self);
-                  uNoRemote := false;
                 end
               else
 …
                 ViewStyle := vsReport;
                 SmallImages := dmodShared.imgImages;
                 CurrentParentNode := nil;
                 CurrentNode := nil;
+                CurrentParentNode := nil;
+                CurrentNode := nil;
                 for i := 0 to uLocalReportData.Count - 1 do
                   begin
 …
                             ListItem.SubItemImages[1] := IMG_NO_IMAGES;
                       end;
                     LoadProceduresTreeView(uLocalReportData[i], CurrentParentNode, CurrentNode);
+                    LoadProceduresTreeView(uLocalReportData[i], CurrentParentNode, CurrentNode);
                     if CurrentNode <> nil then
                        PProcTreeObj(CurrentNode.Data)^.Associate := lvReports.Items.IndexOf(ListItem);
                   end;
                 if tvProcedures.Items.Count > 0 then
+                if tvProcedures.Items.Count > 0 then
                    tvProcedures.Selected := tvProcedures.Items.GetFirstNode;
                 lblProcTypeMsg.Visible := TRUE;
                 pnlRightTop.Height := lblTitle.Height + lblProcTypeMsg.Height;
+                lblProcTypeMsg.Visible := TRUE;
+                pnlRightTop.Height := lblTitle.Height + lblProcTypeMsg.Height;
                 pnlLeftBottom.Visible := FALSE;
                 pnlProcedures.Visible := TRUE;
 …
             StatusText('Retrieving ' + tvReports.Selected.Text + '...');
             uReportInstruction := #13#10 + 'Retrieving data...';
+            lvReports.SmallImages := uEmptyImageList;
+            lvReports.Items.Clear;
+            RowObjects.Clear;
+            memText.Lines.Clear;
             if (length(piece(aHSTag,';',2)) > 0) then
               begin
                 if aCategory <> '0' then
                   begin
                     ListReportDateRanges(lstQualifier.Items);
+                    if lstQualifier.ItemID = '' then
+                    aQualifierID := lstQualifier.ItemID;
+                    if aQualifierID = '' then
                       begin
+                        lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                        uNoRemote := true;
+                        if aHDR = '1' then
+                          lstQualifier.ItemIndex := lstQualifier.Items.Add('T-75000' + ';' + 'T+75000' + '^' + 'T-75000' + ' to ' + 'T+75000')
+                        else
+                          if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
                         lstQualifierClick(self);
-                        uNoRemote := false;
                       end
                     else
+                      lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                      begin
+                        GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
+                        if aHDR = '1' then
+                          lstQualifier.ItemIndex := lstQualifier.Items.Add('T-75000' + ';' + 'T+75000' + '^' + 'T-75000' + ' to ' + 'T+75000')
+                        else
+                          if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                      end;
                     lblQualifier.Caption := 'Date Range';
                     pnlLeftBottom.Visible := true;
 …
                 else
                   begin
+                    LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
+                    memText.Lines.Clear;
+                    //memText.Lines.Assign(uLocalReportData);
+                    RowObjects.Clear;
+                    LoadListView(uLocalReportData);
+                    if not (aRemote = '2' ) then
+                      GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
+                      begin
+                        LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
+                        LoadListView(uLocalReportData);
+                      end;
                   end;
               end
             else
               begin
                 if aRemote = '1' then
+                if (aRemote = '1') or (aRemote = '2') then
                   if TabControl1.Tabs.Count > 1 then
                     ShowTabControl;
                 sptHorzRight.Visible := false;
                 pnlRightMiddle.Visible := false;
+                GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
                 LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
                 if uLocalReportData.Count < 1 then
 …
                 if aCategory <> '0' then
                   begin
                     ListReportDateRanges(lstQualifier.Items);
                     if lstQualifier.ItemID = '' then
                       begin
                         lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
-                        uNoRemote := true;
                         lstQualifierClick(self);
-                        uNoRemote := false;
                       end
                     else
 …
                 else
                   begin
-                    memText.Lines.Clear;
-                    //memText.Lines.Assign(uLocalReportData);
                     if uLocalReportData.Count < 1 then
                       begin
 …
               end;
             StatusText('');
-            GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState);
           end;
         QT_HSWPCOMPONENT:
 …
             uReportInstruction := #13#10 + 'Retrieving data...';
             TabControl1.OnChange(nil);
+            RowObjects.Clear;
+            memText.Lines.Clear;
+            lvReports.SmallImages := uEmptyImageList;
+            lvReports.Items.Clear;
             if (length(piece(aHSTag,';',2)) > 0) then
               begin
                 if aCategory <> '0' then
                   begin
                     ListReportDateRanges(lstQualifier.Items);
+                    if lstQualifier.ItemID = '' then
+                    aQualifierID := lstQualifier.ItemID;
+                    if aQualifierID = '' then
                       begin
+                        lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                        uNoRemote := true;
+                        if aHDR = '1' then
+                          lstQualifier.ItemIndex := lstQualifier.Items.Add('T-75000' + ';' + 'T+75000' + '^' + 'T-75000' + ' to ' + 'T+75000')
+                        else
+                          if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
                         lstQualifierClick(self);
-                        uNoRemote := false;
                       end
                     else
+                      lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                      begin
+                        GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
+                        if aHDR = '1' then
+                          lstQualifier.ItemIndex := lstQualifier.Items.Add('T-75000' + ';' + 'T+75000' + '^' + 'T-75000' + ' to ' + 'T+75000')
+                        else
+                          if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
+                      end;
                     lblQualifier.Caption := 'Date Range';
                     pnlLeftBottom.Visible := true;
 …
                 else
                   begin
+                    LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
+                    memText.Lines.Clear;
+                    //memText.Lines.Assign(uLocalReportData);
+                    RowObjects.Clear;
+                    LoadListView(uLocalReportData);
+                    GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
+                    if not (aRemote = '2' ) then
+                      begin
+                        LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
+                        LoadListView(uLocalReportData);
+                      end;
                   end;
               end
             else
               begin
                 if aRemote = '1' then
+                if (aRemote = '1') or (aRemote = '2') then
                   ShowTabControl;
                 sptHorzRight.Visible := false;
                 pnlRightMiddle.Visible := false;
+                GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR);
                 LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
                 if uLocalReportData.Count < 1 then
 …
                       begin
                         lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
-                        uNoRemote := true;
                         lstQualifierClick(self);
-                        uNoRemote := false;
                       end
                     else
 …
                 else
                   begin
-                    memText.Lines.Clear;
-                    //memText.Lines.Assign(uLocalReportData);
-                    RowObjects.Clear;
                     LoadListView(uLocalReportData);
                   end;
               end;
             StatusText('');
-            GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState);
           end;
         QT_PROCEDURES:
 …
             splitter1.Visible := false;
             StatusText('Retrieving ' + tvReports.Selected.Text + '...');
             GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState);
+            GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState, aHDR);
             uReportInstruction := #13#10 + 'Retrieving data...';
             TabControl1.OnChange(nil);
 …
       end;
     end;
+  if aCategory <> '0' then
+      DisplayHeading(uQualifier)
+  else
+    DisplayHeading('');
+  if not (aHDR = '1') then
+    if aCategory <> '0' then
+        DisplayHeading(uQualifier)
+    else
+      DisplayHeading('');
   SendMessage(tvReports.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
   RedrawActivate(tvReports.Handle);
 …
       WebBrowser1.BringToFront;
     end
   else
+  else if not GraphFormActive then
     begin
       memText.Visible := true;
 …
       memText.BringToFront;
       RedrawActivate(memText.Handle);
+    end
+  else
+    begin
+      GraphPanel(true);
+      with GraphForm do
+      begin
+        lstDateRange.Items := cboDateRange.Items;
+        lstDateRange.ItemIndex := cboDateRange.ItemIndex;
+        ViewSelections;
+        BringToFront;
+      end;
     end;
   Screen.Cursor := crDefault;
 …
 end;
+procedure TfrmReports.chkDualViewsClick(Sender: TObject);
+begin
+  inherited;
+  if (GraphForm <> nil) and GraphFormActive then
+    GraphForm.chkDualViews.Checked := chkDualViews.Checked;
+end;
+procedure TfrmReports.btnChangeViewClick(Sender: TObject);
+begin
+  inherited;
+  if (GraphForm <> nil) and GraphFormActive then
+  begin
+    GraphForm.btnChangeSettingsClick(GraphForm);
+    chkDualViews.Checked := GraphForm.chkDualViews.Checked;
+  end;
+end;
+procedure TfrmReports.btnGraphSelectionsClick(Sender: TObject);
+begin
+  inherited;
+  if (GraphForm <> nil) and GraphFormActive then
+  begin
+    GraphForm.btnGraphSelectionsClick(GraphForm);
+    chkDualViews.Checked := GraphForm.chkDualViews.Checked;
+  end;
+end;
+procedure TfrmReports.lstDateRangeClick(Sender: TObject);
+begin
+  inherited;
+  if (GraphForm <> nil) then
+  begin
+    GraphForm.cboDateRange.ItemIndex := lstDateRange.ItemIndex;
+    GraphForm.cboDateRangeChange(self);
+    lstDateRange.Items.Assign(GraphForm.cboDateRange.Items);
+    lstDateRange.ItemIndex := GraphForm.cboDateRange.ItemIndex;
+    //Exit;
+  end;
+end;
+procedure TfrmReports.sptHorzMoved(Sender: TObject);
+begin
+  inherited;
+  pnlTopViews.Height := 80;
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/fReportsAdhocSubItem1.dfm

-              r459
+              r460
       Height = 24
       BevelOuter = bvNone
-      Caption = 'Display selected file entry earlier'
       TabOrder = 4
       TabStop = True
 …
       Height = 24
       BevelOuter = bvNone
-      Caption = 'Display selected file entry earlier'
       TabOrder = 5
       TabStop = True
 …
       ListItemsOnly = False
       LongList = True
+      LookupPiece = 0
       MaxLength = 0
       Pieces = '2'
 …
       OnKeyUp = ORComboBox2KeyUp
       OnNeedData = ORComboBox2NeedData
+      CharsNeedMatch = 1
     end
     object ORListBox1: TORListBox

cprs/branches/foia-cprs/CPRS-Chart/fReview.dfm

-              r459
+              r460
 object frmReview: TfrmReview
   Left = 212
   Top = 139
+  Left = 358
+  Top = 136
   AutoScroll = False
   BorderIcons = [biMaximize]
   Caption = 'Review / Sign Changes'
   ClientHeight = 501
+  ClientHeight = 497
   ClientWidth = 602
   Color = clBtnFace
 …
   DesignSize = (
 )
+)
   PixelsPerInch = 96
   TextHeight = 13
 …
     Visible = False
   end
-  object lblSig: TStaticText
-    Left = 8
-    Top = 136
-    Width = 205
-    Height = 17
-    Caption = 'Signature will be Applied to Checked Items'
-    TabOrder = 5
-    TabStop = True
-  end
   object pnlSignature: TPanel
     Left = 8
     Top = 427
+    Top = 423
     Width = 373
     Height = 65
 …
   object pnlOrderAction: TPanel
     Left = 8
     Top = 427
+    Top = 423
     Width = 373
     Height = 65
 …
   object cmdOK: TButton
     Left = 442
     Top = 475
+    Top = 471
     Width = 72
     Height = 21
 …
   object cmdCancel: TButton
     Left = 522
     Top = 475
+    Top = 471
     Width = 72
     Height = 21
 …
     Top = 154
     Width = 587
     Height = 268
+    Height = 264
     OnClickCheck = lstReviewClickCheck
     Anchors = [akLeft, akTop, akRight, akBottom]
 …
     Height = 129
     Align = alTop
+    AutoScroll = False
+    AutoSize = True
     ParentShowHint = False
     ShowHint = True
 …
     Visible = False
     inherited pnlRight: TPanel
       Left = 353
+      Left = 392
       Height = 129
       inherited lblCaption: TStaticText
 …
     end
     inherited pnlSC: TPanel
       Width = 353
+      Width = 392
       Height = 129
       inherited lblSCDisplay: TLabel
         Width = 353
+        Width = 392
       end
       inherited memSCDisplay: TCaptionMemo
         Width = 353
+        Width = 392
         Height = 112
       end
     end
+  end
+  object lblSig: TStaticText
+    Left = 8
+    Top = 136
+    Width = 205
+    Height = 17
+    Caption = 'Signature will be Applied to Checked Items'
+    TabOrder = 5
+    TabStop = True
   end
   object gbxDxLookup: TGroupBox
 …
     object Copy1: TMenuItem
       Caption = '&Copy'
-      Enabled = False
       ShortCut = 16451
       OnClick = Copy1Click
 …
     object Diagnosis1: TMenuItem
       Caption = '&Diagnosis...'
-      Enabled = False
       ShortCut = 32836
       OnClick = buDiagnosisClick

cprs/branches/foia-cprs/CPRS-Chart/fReview.pas

-              r459
+              r460
     procedure SetItemTextToState;
     procedure FormatListForScreenReader;
   public
     procedure SetCheckBoxStatus(thisOrderID: string);
 …
 uses ORFn, rCore, fNotes, fConsults, fOrders, rOrders, Hash, fDCSumm, fOCSession, uOrders,
      fSignItem, fOrdersPrint, fLkUpLocation, fFrame, uSignItems, fSurgery,
      fBALocalDiagnoses, UBAConst, UBAMessages, fOrdersSign;
+     fBALocalDiagnoses, UBAConst, UBAMessages, fOrdersSign, fClinicWardMeds;
 const
 …
     end;
+    // if Result then Changes.Clear;  possibly clear changes here ??
   finally
    Changes.OnRemove := nil;     {**RV**}
+   frmReview.Release;
   end;
 end;
 …
   if  BILLING_AWARE then
   begin
     UBAGlobals.ChangeItemOrderNum := Copy(ChangeItem.ID, 0, 8);
+    UBAGlobals.ChangeItemOrderNum := ChangeItem.ID; // GE 2/21/2006 removed "Copy(ChangeItem.ID,0,8)" issue when sites have order number > 8 digits
      // HDS00005025
 …
   TC_SAVERR  = 'Error Saving Order';
 var
   i, idx, AType, theSts: Integer;
+  i, idx, AType, PrintLoc, theSts: Integer;
   SigSts, RelSts, Nature: Char;
   ESCode, AnID, AnErrMsg: string;
 …
   OrderList: TStringList;
   SaveCoPay: boolean;
   DigSigErr, DigStoreErr: Boolean;
+  DigSigErr, DigStoreErr, CryptoChecked: Boolean;
   SigData, SigUser, SigDrugSch, SigDEA: string;
   cSignature, cHashData, cCrlUrl, cErr: string;
 …
   ESCode := '';
   SaveCoPay := FALSE;
+  PrintLoc := 0;
   if BILLING_AWARE then
   begin
 …
     OrderList := TStringList.Create;
     DigSigErr := True;
+    DigStoreErr := False;
+    if GetPKISite and GetPKIUse then
+      begin
+        try  //PKI object creation
+          crypto := CoXuDigSigS.Create;
+          crypto.GetCSP;
+          StatusText(crypto.Reason);
+          DigSigErr := False;
+        except
+        on  E: Exception do
+          begin
+            DigSigErr := True;
+          end;
+        end;
+      end;
+    CryptoChecked := False;
     try
       Nature := NO_PROVIDER;
 …
               OrderList.Add(ChangeItem.ID + U + SS_ONCHART + U + RS_RELEASE + U + NO_WRITTEN);
           end; {with lstReview}
         end; {OR_NOKEY, OR_CLERK, OR_NURSE, OR_STUDENT}
 …
                                SigSts := SS_ESIGNED;
                                RelSts := RS_RELEASE;
+                               if (OrderRequiresDigitalSignature(ChangeItem.ID)) and (CryptoChecked = false)
+                                 and GetPKISite and GetPKIUse then
+                                  begin
+                                    Cryptochecked := true;
+                                    try  //PKI object creation
+                                      crypto := CoXuDigSigS.Create;
+                                      crypto.GetCSP;
+                                      StatusText(crypto.Reason);
+                                      DigSigErr := False;
+                                    except
+                                    on  E: Exception do
+                                      begin
+                                        DigSigErr := True;
+                                      end;
+                                    end;
+                                  end;
                                if (DigSigErr = false) and (OrderRequiresDigitalSignature(ChangeItem.ID))
                                  and (SigItems.OK2SaveSettings) then
 …
              else
              begin
+                InfoBox(TX_Order_Error, 'Review/Sign Orders', MB_OK);
+                if BILLING_AWARE then
+                   InfoBox(TX_Order_Error, 'Review/Sign Orders', MB_OK)
+                   else
+                      InfoBox(TC_Order_Error, 'Review/Sign Orders', MB_OK);
                 Exit;
              end
 …
             if (cmdOk.Caption = 'Sign') then
               begin
                 if Not BADxEntered then
+                if Not UBACore.BADxEntered then
                 begin
-                   SaveCoPay := FALSE;
                    InfoBox(TX_NO_DX, TC_NO_DX, MB_OK);
                    Exit;
 …
         if OrderList.Count > 0 then
         begin
+        //hds7591  Clinic/Ward movement.  Nurse orders
+          if (cmdOk.Caption = 'Sign') or (cmdOK.Caption = 'OK') and (not frmFrame.TimedOut) then
+          begin
+             if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then
+                frmClinicWardMeds.ClinicOrWardLocation(OrderList, uCore.TempEncounterLoc,uCore.TempEncounterLocName, PrintLoc)
+             else
+                if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then
+                   frmClinicWardMeds.ClinicOrWardLocation(OrderList, Encounter.Location,Encounter.LocationName, PrintLoc);
+          end;
+          uCore.TempEncounterLoc := 0;
+          uCore.TempEncounterLocName := '';
+        end;
+        //hds7591  Clinic/Ward movement.
           if SaveCoPay then
             SigItems.SaveSettings; // Save CoPay FIRST
           SendOrders(OrderList, ESCode);   {*KCM*}
+        end;
         with OrderList do for i := 0 to Count - 1 do
         begin
 …
             if theSts = 10 then  OrderList.Delete(idx);  //signed delayed order should not be printed.
           end;
           PrintOrdersOnSignRelease(OrderList, Nature);
+          PrintOrdersOnSignRelease(OrderList, Nature, PrintLoc);
         end;
         StatusText('');
 …
        if frmFrame.TimedOut then Exit;
         //Billing Awareness 'flyover' hint includes Dx code(s) when Dx code(s) have been assigned to an order
-          tempRec := TBADxRecord.Create;
           if Assigned(frmReview) then
 …
   UBAGlobals.PLFactorsIndexes.Clear;
-  numSelected := 0;
   match := false;
   allBlank := false;
 …
               thisOrderList.Add(thisChangeItem.ID);
               // Returns True if All selected orders are N/A, Order selected are NON CIDC or DC'd
               if IsAllOrdersNA(thisOrderList) then
+              if uBACore.IsAllOrdersNA(thisOrderList) then
                  begin
                  Diagnosis1.Enabled := false;
 …
         end;
    end;
-  //CopyActive := true; //CQ6225
-  //Paste1.Enabled := true; //CQ6225
 end;
 …
           if (frmReview.lstReview.Selected[i]) then
             begin
-            thisChangeItem := TChangeItem.Create;
-            thisChangeItem := nil;
             thisChangeItem := TChangeItem(lstReview.Items.Objects[i]);
 …
                   //***************************************************************
+                  if (NOT UBACore.IsOrderBillable(fReview.targetOrderID) ) then// and
+                  //   (NOT tempDxNodeExists(fReview.targetOrderID) )then   // added to allow copy to NON CIDC consult orders that requires a DX.
+                    begin
+                  if (NOT UBACore.IsOrderBillable(fReview.targetOrderID) ) then
+                   begin
                     ShowMessage(BA_NA_PASTE_DISALLOWED);
                     fReview.targetOrderID := '';
 …
                   with newRec do
                     begin
                     FOrderID := fReview.targetOrderID;
                     FBADxCode := CopyBuffer.FBADxCode;
                     FBASecDx1 := CopyBuffer.FBASecDx1;
                     FBASecDx2 := CopyBuffer.FBASecDx2;
                     FBASecDx3 := CopyBuffer.FBASecDx3;
+                      FOrderID := fReview.targetOrderID;
+                      FBADxCode := CopyBuffer.FBADxCode;
+                      FBASecDx1 := CopyBuffer.FBASecDx1;
+                      FBASecDx2 := CopyBuffer.FBASecDx2;
+                      FBASecDx3 := CopyBuffer.FBASecDx3;
                     end;
 …
   lstReview.Refresh; //Update grid to show pasted Dx/TF/CI
+{
+  //CQ6225
+  if CopyActive then
+     begin
+     Paste1.Enabled := false;
+     CopyActive := false;
+     end;
+  //end CQ6225
+}
 end;
 …
 begin
   howMany := 0;
+  thisItem := TChangeItem.Create;
   for i := 0 to lstReview.Items.Count-1 do
      begin
 …
      FRVTFHintWindowActive := False;
   end;
-   x := 0;
-   y := 0;
    FRVTFHintWindow := THintWindow.Create(frmReview); //(frmReview);
 …
   Y: Integer);
 begin
   IF BILLING_AWARE then
+//  IF BILLING_AWARE then
     if FRVTFHintWindowActive then
     begin
 …
 procedure TfrmReview.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
-if BILLING_AWARE then
-begin
   if FRVTFHintWindowActive then
   begin
 …
      Application.ProcessMessages;
   end;
-  end;
 end;
 …
         begin
         //Abbreviated captions
         Label23.ShowHint := false;
         StaticText1.ShowHint := false;
         Label17.ShowHint := false;
         Label15.ShowHint := false;
         Label13.ShowHint := false;
         Label11.ShowHint := false;
         lblHNC.ShowHint := false;
+          Label23.ShowHint := false;
+          StaticText1.ShowHint := false;
+          Label17.ShowHint := false;
+          Label15.ShowHint := false;
+          Label13.ShowHint := false;
+          Label11.ShowHint := false;
+          lblHNC.ShowHint := false;
         //Long captions
         Label24.ShowHint := false;
         staticText4.ShowHint := false;
         Label17.ShowHint := false;
         Label18.ShowHint := false;
         Label15.ShowHint := false;
         Label16.ShowHint := false;
         Label13.ShowHint := false;
         Label14.ShowHint := false;
         Label11.ShowHint := false;
         Label12.ShowHint := false;
         lblHNC.ShowHint := false;
         lblHNC2.ShowHint := false;
+          Label24.ShowHint := false;
+          staticText4.ShowHint := false;
+          Label17.ShowHint := false;
+          Label18.ShowHint := false;
+          Label15.ShowHint := false;
+          Label16.ShowHint := false;
+          Label13.ShowHint := false;
+          Label14.ShowHint := false;
+          Label11.ShowHint := false;
+          Label12.ShowHint := false;
+          lblHNC.ShowHint := false;
+          lblHNC2.ShowHint := false;
         end;
      end
 …
         begin
         //Abbreviated captions
         Label23.ShowHint := true;
         StaticText1.ShowHint := true;
         Label17.ShowHint := true;
         Label15.ShowHint := true;
         Label13.ShowHint := true;
         Label11.ShowHint := true;
         lblHNC.ShowHint := true;
         //Long captions
         Label24.ShowHint := true;
         staticText4.ShowHint := true;
         Label17.ShowHint := true;
         Label18.ShowHint := true;
         Label15.ShowHint := true;
         Label16.ShowHint := true;
         Label13.ShowHint := true;
         Label14.ShowHint := true;
         Label11.ShowHint := true;
         Label12.ShowHint := true;
         lblHNC.ShowHint := true;
         lblHNC2.ShowHint := true;
+          Label23.ShowHint := true;
+          StaticText1.ShowHint := true;
+          Label17.ShowHint := true;
+          Label15.ShowHint := true;
+          Label13.ShowHint := true;
+          Label11.ShowHint := true;
+          lblHNC.ShowHint := true;
+          //Long captions
+          Label24.ShowHint := true;
+          staticText4.ShowHint := true;
+          Label17.ShowHint := true;
+          Label18.ShowHint := true;
+          Label15.ShowHint := true;
+          Label16.ShowHint := true;
+          Label13.ShowHint := true;
+          Label14.ShowHint := true;
+          Label11.ShowHint := true;
+          Label12.ShowHint := true;
+          lblHNC.ShowHint := true;
+          lblHNC2.ShowHint := true;
         end;
      end;
 end;
-// determines if BA switch is on, user is provider and has orelse key
-// is true, BA data is not mandatory.
 procedure TfrmReview.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
+ if BILLING_AWARE then
+ begin
     if FRVTFHintWindowActive then
     begin
 …
       with fraCopay do
         begin
         Label24.ShowHint := false;
         staticText4.ShowHint := false;
         Label18.ShowHint := false;
         Label16.ShowHint := false;
         Label14.ShowHint := false;
         Label12.ShowHint := false;
         lblHNC2.ShowHint := false;
+          Label24.ShowHint := false;
+          staticText4.ShowHint := false;
+          Label18.ShowHint := false;
+          Label16.ShowHint := false;
+          Label14.ShowHint := false;
+          Label12.ShowHint := false;
+          lblHNC2.ShowHint := false;
         end;
-    end;
  end;
 …
   i : integer;
 begin
+  //The with statement below would cause access violations on other Delphi machines.
+{    with lstReview do
+    begin }
+  //Must use fully qualifying path includeing the unit... very wierd!
   if fReview.frmReview.lstReview.Count < 1 then Exit;
   for i := 0 to fReview.frmReview.lstReview.Count-1 do
 …
   if fReview.frmReview.lstReview.ItemIndex >= 0 then
     fReview.frmReview.lstReview.Selected[fReview.frmReview.lstReview.ItemIndex] := True;
- //   end;
 end;
 …
 procedure TfrmReview.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
+  Success := SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0);
+  if Success and ListStateOn then
     SetItemTextToState;
 end;

cprs/branches/foia-cprs/CPRS-Chart/fRptBox.dfm

-              r459
+              r460
 object frmReportBox: TfrmReportBox
+  Left = 351
+  Top = 217
+  Width = 392
+  Height = 357
+  Left = 512
+  Top = 214
   Anchors = []
+  AutoScroll = False
   BorderIcons = [biSystemMenu]
   Caption = 'frmReportBox'
+  ClientHeight = 321
+  ClientWidth = 350
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
 …
     Left = 0
     Top = 0
     Width = 384
     Height = 309
+    Width = 350
+    Height = 300
     Align = alClient
-    Anchors = []
     Color = clCream
     Font.Charset = ANSI_CHARSET
 …
   object pnlButton: TPanel
     Left = 0
     Top = 309
     Width = 384
+    Top = 300
+    Width = 350
     Height = 21
     Align = alBottom
 …
     TabOrder = 1
     DesignSize = (
 )
     object cmdPrint: TButton
       Left = 222
+      Left = 191
       Top = 0
       Width = 75
 …
     end
     object cmdClose: TButton
       Left = 302
+      Left = 274
       Top = 0
       Width = 75
 …
   end
   object dlgPrintReport: TPrintDialog
     Left = 142
     Top = 49
+    Left = 318
+    Top = 41
   end
 end

cprs/branches/foia-cprs/CPRS-Chart/fRptBox.pas

-              r459
+              r460
 uses
   uCore, rCore, rReports, Printers;
+  uCore, rCore, rReports, Printers, rMisc;
 {$R *.DFM}
 …
       BoundsRect := Rect;
       ResizeAnchoredFormToFont(Result);
+      memReport.Align := alClient; //CQ6661
+      //CQ6889 - force Print & Close buttons to bottom right of form regardless of selected font size
+      cmdClose.Left := (pnlButton.Left+pnlButton.Width)-cmdClose.Width;
+      cmdPrint.Left := (cmdClose.Left-cmdPrint.Width)-1;
+      //end CQ6889
       SetLength(BtnLeft, k);
       for j := 0 to k - 1 do

cprs/branches/foia-cprs/CPRS-Chart/fSurgery.dfm

-              r459
+              r460
 inherited frmSurgery: TfrmSurgery
   Left = 244
   Top = 179
+  Left = 521
+  Top = 221
   Width = 720
   Height = 409
 …
         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 = '-'

cprs/branches/foia-cprs/CPRS-Chart/fSurgery.pas

-              r459
+              r460
     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 pnlRightResize(Sender: TObject);
 …
     procedure tvSurgeryAddition(Sender: TObject; Node: TTreeNode);
     procedure tvSurgeryDeletion(Sender: TObject; Node: TTreeNode);
+    procedure ViewInfo(Sender: TObject);
+    procedure mnuViewInformationClick(Sender: TObject);
   private
     FEditingIndex: Integer;                      // index of note being currently edited
 …
     FDeleted: boolean;
     procedure ClearEditControls;
     procedure DoAutoSave;
+    procedure DoAutoSave(Suppress: integer = 1);
     function GetTitleText(AnIndex: Integer): string;
     procedure InsertAddendum;
 …
     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;
 …
 end;
 procedure TfrmSurgery.DoAutoSave;
+procedure TfrmSurgery.DoAutoSave(Suppress: integer = 1);
 var
   ErrMsg: string;
 …
     timAutoSave.Enabled := False;
     try
       SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex),1);
+      SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
     finally
       timAutoSave.Enabled := True;
 …
 procedure TfrmSurgery.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;
+  ActionType, SignTitle: string;
 begin
   AnIndex := -1;
 …
   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_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     SpellCheckForControl(memNewNote);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
 begin
   inherited;
   DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     GrammarCheckForControl(memNewNote);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
 …
   SigAction: integer;
   SavedDocID: string;
+  ARefDate: TFMDateTime;
 begin
   inherited;
 …
   Exclusions := GetCurrentSigners(lstNotes.ItemIEN);
+  SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES);
+  ARefDate := StrToFloat(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
+  SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES, ARefDate);
   with SignerList do
     begin
 …
 end;
+procedure TfrmSurgery.ViewInfo(Sender: TObject);
+begin
+  inherited;
+  frmFrame.ViewInfo(Sender);
+end;
+procedure TfrmSurgery.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;

cprs/branches/foia-cprs/CPRS-Chart/fVitals.pas

-              r459
+              r460
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, Grids,
+  Buttons, ORNet, ORFn, uConst, Menus, ORDtTmRng;  {*KCM*}
+  Buttons, ORNet, ORFn, uConst, Menus, ORDtTmRng
+  , ComCtrls
+  , uVitals
+  ;  {*KCM*}
 type
 …
   end;
 var
   frmVitals: TfrmVitals;
 …
 procedure SelectVital(FontSize:integer; idx: integer);
 procedure SelectVitals(FontSize: Integer);
+procedure SelectVitals(VitalType: String);
 function VitalsGrid(const patient: string; date1, date2: TFMDateTime; restrictdates: integer; tests: TStrings): TStrings;  //*DFN*
 function VitalsMemo(const patient: string; date1, date2: TFMDateTime; tests: TStrings): TStrings;  //*DFN*
 …
 uses fCover, uCore, rCore, fVit, fFrame, fEncnt, fVisit, fRptBox, rReports,
   uAccessibleStringGrid;
+  uAccessibleStringGrid, uInit;
 const
 …
 end;
+function getVitalsStartDate : String;
+begin
+  result := '';
+  if Patient.Inpatient then
+    result := FormatDateTime('mm/dd/yy',Now - 7)
+  else
+    result := FormatDateTime('mm/dd/yy',IncMonth(Now,-6));
+end;
+procedure SelectVitals(VitalType: String);
+var
+  VLPtVitals : TGMV_VitalsViewForm;
+  GMV_FName,
+  GMV_LibName: String;
+begin
+ { Availble Forms:
+  GMV_FName :='GMV_VitalsEnterDLG';
+  GMV_FName :='GMV_VitalsEnterForm';
+  GMV_FName :='GMV_VitalsViewForm';
+  GMV_FName :='GMV_VitalsViewDLG';
+  }
+  GMV_FName :='GMV_VitalsViewDLG';
+  GMV_LibName :='GMV_VitalsViewEnter.dll';
+  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
+  VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
+ // UpdateTimeOutInterval(5000);
+  if VitalsDLLHandle <> 0 then
+    begin
+     @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
+     if assigned(VLPtVitals) then
+       VLPtVitals(RPCBrokerV,Patient.DFN,FloatToStr(Encounter.Location),
+                  getVitalsStartDate(),FormatDateTime('mm/dd/yy',Now),
+                  GMV_APP_SIGNATURE,
+                  GMV_CONTEXT,GMV_CONTEXT,
+                  Patient.Name,
+                  frmFrame.lblPtSSN.Caption + '    ' + frmFrame.lblPtAge.Caption,
+                  Encounter.LocationName +U+ VitalType)
+     else
+       MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);
+    end
+  else
+    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0);
+  @VLPtVitals := nil;
+  FreeLibrary(VitalsDLLHandle);
+  if DLLForceClose then
+    frmFrame.Close; // Fix for CQ: 7535
+end;
+(*
 procedure SelectVitals(FontSize: Integer);
 var
 …
   end;
 end;
+  *)
 procedure TfrmVitals.VGrid(griddata: TStrings);
 var
 …
 function VitalsGrid(const patient: string; date1, date2: TFMDateTime; restrictdates: integer; tests: TStrings): TStrings;  //*DFN*
 begin
   CallV('ORQQVI1 GRID', [patient, date1, date2, restrictdates, tests]);
+  CallV('GMV ORQQVI1 GRID', [patient, date1, date2, restrictdates, tests]);
   Result := RPCBrokerV.Results;
 end;
 …
 function VitalsMemo(const patient: string; date1, date2: TFMDateTime; tests: TStrings): TStrings;  //*DFN*
 begin
   CallV('ORQQVI1 DETAIL', [patient, date1, date2, 0, tests]);
+  CallV('GMV ORQQVI1 DETAIL', [patient, date1, date2, 0, tests]);
   Result := RPCBrokerV.Results;
 end;

cprs/branches/foia-cprs/CPRS-Chart/mCoPayDesc.dfm

-              r459
+              r460
   Width = 598
   Height = 132
+  Anchors = [akLeft, akTop, akRight]
+  AutoScroll = False
+  AutoSize = True
   ParentShowHint = False
   ShowHint = True
   TabOrder = 0
   object pnlRight: TPanel
     Left = 349
+    Left = 388
     Top = 0
     Width = 249
+    Width = 210
     Height = 132
     Align = alRight
 …
       Left = 0
       Top = 0
       Width = 249
+      Width = 210
       Height = 3
       Align = alTop
 …
       Left = 0
       Top = 3
       Width = 249
+      Width = 210
       Height = 14
       Align = alTop
-      Alignment = taCenter
       AutoSize = False
       Caption = 'Outpatient Medications Related To:'
 …
       Left = 0
       Top = 17
       Width = 249
+      Width = 210
       Height = 115
       Align = alClient
 …
         Left = 2
         Top = 2
         Width = 245
+        Width = 206
         Height = 3
         Align = alTop
 …
         Left = 2
         Top = 95
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 6
         object lblHNC2: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          Alignment = taRightJustify
           AutoSize = False
           Caption = '  HNC -  '
 …
         Left = 2
         Top = 80
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 5
         object Label12: TORStaticText
           Left = 60
           Top = 0
           Width = 183
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          AutoSize = False
+          Caption = '  MST -'
+          Alignment = taRightJustify
+          AutoSize = False
+          Caption = '  MST -  '
           TabOrder = 0
           TabStop = True
 …
         Left = 2
         Top = 65
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 4
         object Label14: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          Alignment = taRightJustify
           AutoSize = False
           Caption = '    EC -  '
 …
         Left = 2
         Top = 50
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 3
         object Label16: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          Alignment = taRightJustify
           AutoSize = False
           Caption = '     IR -  '
 …
         Left = 2
         Top = 35
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 2
         object Label18: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          Alignment = taRightJustify
           AutoSize = False
           Caption = '    AO -  '
 …
         Left = 2
         Top = 5
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 0
         object Label24: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 17
+          AutoSize = False
+          Caption = '    SC -'
+          Alignment = taRightJustify
+          AutoSize = False
+          Caption = '    SC -  '
           TabOrder = 0
           TabStop = True
 …
         Left = 2
         Top = 20
         Width = 245
+        Width = 206
         Height = 15
         Align = alTop
 …
         TabOrder = 1
         object StaticText4: TORStaticText
           Left = 60
           Top = 0
           Width = 182
+          Left = 50
+          Top = 0
+          Width = 150
           Height = 15
           AutoSize = False
 …
           Width = 50
           Height = 15
+          Alignment = taRightJustify
           AutoSize = False
           Caption = '    CV -  '
 …
     Left = 0
     Top = 0
     Width = 349
+    Width = 388
     Height = 132
     Align = alClient
 …
       Left = 0
       Top = 0
       Width = 349
+      Width = 388
       Height = 17
       Align = alTop
 …
       Left = 0
       Top = 17
       Width = 349
+      Width = 388
       Height = 115
       Align = alClient

cprs/branches/foia-cprs/CPRS-Chart/rCore.pas

-              r459
+              r460
 { General calls }
+function GetProgramFilesPath: String;
 function ExternalName(IEN: Int64; FileNumber: Double): string;
 function PersonHasKey(APerson: Int64; const AKey: string): Boolean;
 …
 procedure RenewAlert(XQAID: string);
 function GetSortMethod: string;
 procedure SetSortMethod(Sort: string);
+procedure SetSortMethod(Sort: string; Direction: string);
 { Patient List calls }
 …
 function HasRemoteData(const DFN: string; var ALocations: TStringList): Boolean;
 function CheckHL7TCPLink: Boolean;
+function UseVistaWeb: Boolean;
+function GetVistaWebAddress(value: string): string;
+procedure ChangeVistaWebParam(value: string);
 implementation
 uses Hash, uCore;
+uses Hash, uCore, ShlObj, Windows;
 var
 …
 { General calls }
+function GetProgramFilesPath: String;
+Const
+  CSIDL_PROGRAM_FILES = $0026;
+var
+  Path: array[0..Max_Path] of Char;
+begin
+  Path := '';
+  SHGetSpecialFolderPath(0,Path,CSIDL_PROGRAM_FILES,false);
+  Result := Path;
+end;
 function ExternalName(IEN: Int64; FileNumber: Double): string;
 …
 end;
 procedure SetSortMethod(Sort: string);
+procedure SetSortMethod(Sort: string; Direction: string);
 // Sets alert sort method for user
 begin
    CallV('ORWORB SETSORT', [Sort]);
+   CallV('ORWORB SETSORT', [Sort, Direction]);
 end;
 …
   a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call!}
 begin
   CallV('ORWU NEWPERS', [StartFrom, Direction, '', '', True]);  //TRUE = return all active and inactive users
+  CallV('ORWU NEWPERS', [StartFrom, Direction, '', '', '', True]);  //TRUE = return all active and inactive users
   MixedCaseList(RPCBrokerV.Results);
   Result := RPCBrokerV.Results;
 …
  end;
+function UseVistaWeb: Boolean;
+ begin;
+   CallV('ORWCIRN VISTAWEB',[nil]);
+   result := RPCBrokerV.Results[0] = '1';
+ end;
+function GetVistaWebAddress(value: string): string;
+begin
+  CallV('ORWCIRN WEBADDR', [value]);
+  result := RPCBrokerV.Results[0];
+end;
+procedure ChangeVistaWebParam(value: string);
+  begin
+    CallV('ORWCIRN WEBCH',[value]);
+  end;
 function GetDefaultPrinter(DUZ: Int64; Location: integer): string;
 begin

cprs/branches/foia-cprs/CPRS-Chart/rCover.pas

-              r459
+              r460
         Src[i] := x;
       end;
+    if (Piece(Src[i], U, 5)='C') then  // Clin Meds
+    begin
+       MarkForDelete := False;                    // always display non-VA meds
+       x := Src[i];
+       SetPiece(x, U, 2, 'Clin Meds  ' + Piece(x, U, 2));
+       Src[i] := x;
+    end;
     // clear non-active meds   (SHOULD THIS INCLUDE PENDING ORDERS?)
     if MedStatusGroup(Piece(Src[i], U, 4)) = MED_NONACTIVE then MarkForDelete := True;

cprs/branches/foia-cprs/CPRS-Chart/rMeds.pas

-              r459
+              r460
 procedure Refill(AnOrderID, PickUpAt: string);
 function IsFirstDoseNowOrder(OrderID: string): boolean;
+function GetMedStatus(MedID: TStringList): boolean;
 implementation
 …
     if NonVAMed then
         Instruct := 'Non-VA  ' + Instruct;
     IVFluid   := Piece(x, U, 1) = 'IV';
+    IVFluid   := Piece(x, U, 1) = '~IV';
     SrvSeq    := 0;
     LastFill  := MakeFMDateTime(Piece(x, U, 11));
 …
   AMed: TMedListRec;
 begin
+  //Check for CQ 9814 this should prevent an M error is DFn is not defined.
+  if patient=nil then exit;
+  if patient.DFN='' then exit;
   ClinMeds := TList.Create;           //IMO new
   tmpInPtMeds := TList.Create;        //IMO new
 …
   OutPtMeds.Sort(ByStatusThenStop);
   NonVAMeds.Sort(ByStatusThenStop);
+  if Assigned(ClinMeds) then FreeAndNil(ClinMeds);
+  if Assigned(tmpInPtMeds) then FreeAndNil(tmpInPtMeds);
 end;
 …
 end;
+function GetMedStatus(MedID: TStringList): boolean;
+begin
+ Result := SCallV('ORWDX1 STCHANGE',[Patient.DFN, MedID])= '1';
+end;
 end.

cprs/branches/foia-cprs/CPRS-Chart/rMisc.pas

-              r459
+              r460
 function ServerHasPatch(const x: string): Boolean;
 function ServerVersion(const Option, VerClient: string): string;
+function PackageVersion(const Namespace: string): string;
 procedure SaveUserBounds(AControl: TControl);
 …
   with RPCBrokerV do
   begin
+    ClearParameters := True;
     RemoteProcedure := 'XWB GET VARIABLE VALUE';
     Param[0].Value := x;
 …
 begin
   Result := sCallV('ORWU VERSRV', [Option, VerClient]);
+end;
+function PackageVersion(const Namespace: string): string;
+begin
+  Result := sCallV('ORWU VERSION', [Namespace]);
 end;

cprs/branches/foia-cprs/CPRS-Chart/rReminders.pas

-              r459
+              r460
 function GetCategoryItems(CatIEN: integer): TStrings;
 function GetAllRemindersAndCategories: TStrings;
+function VerifyMentalHealthTestComplete(TestName, Answers: string): String;
 implementation
 …
 function GetDialogInfo(IEN: string; RemIEN: boolean): TStrings;
+Var
+ver: string;
+begin
+  ver:=sCallV('ORQQPXRM CHECK REM VERSION', []);
+  if pos('2',ver)>0 then
+     begin
+begin
      if RemIEN then
         CallV('ORQQPXRM REMINDER DIALOG', [IEN, Patient.DFN])
 …
         CallV('PXRM REMINDER DIALOG (TIU)', [IEN, Patient.DFN]);
      Result := RPCBrokerV.Results;
-     end
-  else
-      begin
-      if RemIEN then
-        CallV('ORQQPXRM REMINDER DIALOG', [IEN])
-     else
-        CallV('PXRM REMINDER DIALOG (TIU)', [IEN]);
-     Result := RPCBrokerV.Results;
-  end;
 end;
 …
 end;
+function VerifyMentalHealthTestComplete(TestName, Answers: string): String;
+begin
+    CallV('ORQQPXRM MHV', [Patient.DFN, TestName, Answers]);
+    if RPCBrokerV.Results[0]='2' then
+      begin
+        Result := '2'+ U;
+        EXIT;
+      end;
+    if RPCBrokerV.Results[0] = '1' then
+      begin
+        Result := '1' + U;
+        EXIT;
+      end;
+    if RPCBrokerV.Results[0] = '0' then
+      begin
+        Result := '0' + U + RPCBrokerV.Results[1];
+        EXIT;
+      end;
+end;
 initialization

cprs/branches/foia-cprs/CPRS-Chart/rReports.pas

-              r459
+              r460
 procedure RemoteQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
             AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
+procedure DirectQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
+            AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
 function ReportQualifierType(ReportType: Integer): Integer;
 function ImagingParams: String;
+function AutoRDV: String;
+function HDRActive: String;
 procedure PrintReportsToDevice(AReport: string; const Qualifier, Patient,
      ADevice: string; var ErrMsg: string; aComponents: TStringlist;
 …
 procedure SetAdhocLookup(aLookup: integer);
 procedure GetRemoteData(Dest: TStrings; aHandle: string; aItem: PChar);
+procedure ModifyHDRData(Dest: string; aHandle: string; aID: string);
 procedure PrintVReports(Dest, ADevice, AHeader: string; AReport: TStringList);
 …
       LoadTree;
     end;
   for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 14));
+  for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 15));
 end;
 …
 var
   HSType, DaysBack, ExamID, MaxOcc, AReport, x: string;
   Alpha, Omega: double;
+  Alpha, Omega, Trans: double;
 begin
   HSType := '';
 …
       Alpha := StrToFMDateTime(Piece(Qualifier,';',1));
       Omega := StrToFMDateTime(Piece(Qualifier,';',2));
+      if Alpha > Omega then
+        begin
+          Trans := Omega;
+          Omega := Alpha;
+          Alpha := Trans;
+        end;
       MaxOcc := Piece(Qualifier,';',3);
       SetPiece(AHSTag,';',4,MaxOcc);
 …
 end;
+procedure DirectQuery(Dest: TStrings; AReportType: string; AHSType, ADaysback,
+            AExamID: string; Alpha, AOmega: Double; ASite, ARemoteRPC, AHSTag: String);
+var
+  AReport: string;
+begin
+  AReport := AReportType + ';1' + '~' + AHSTag;
+  if length(AHSType) > 0 then
+    AHSType := piece(AHSType,':',1) + ';' + piece(AHSType,':',2);  //format for backward compatibility
+  CallV('XWB DIRECT RPC', [ASite, ARemoteRPC, 0, Patient.DFN + ';' + Patient.ICN,
+            AReport, AHSType, ADaysBack, AExamID, Alpha, AOmega]);
+  QuickCopy(RPCBrokerV.Results,Dest);
+end;
 function ReportQualifierType(ReportType: Integer): Integer;
 var
 …
 begin
   Result := sCallV('ORWTPD GETIMG',[nil]);
+end;
+function AutoRDV: String;
+begin
+  Result := sCallV('ORWCIRN AUTORDV', [nil]);
+end;
+function HDRActive: String;
+begin
+  Result := sCallV('ORWCIRN HDRON', [nil]);
 end;
 …
 end;
+procedure ModifyHDRData(Dest: string; aHandle: string; aID: string);
+begin
+  CallV('ORWRP4 HDR MODIFY', [aHandle, aID]);
+end;
 procedure PrintBitmap(Canvas:  TCanvas; DestRect:  TRect;  Bitmap:  TBitmap);
 var

cprs/branches/foia-cprs/CPRS-Chart/rTIU.pas

-              r459
+              r460
 uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, uConst, TRPCB, uTIU;
+type
+  TPatchInstalled = record
+    PatchInstalled: boolean;
+    PatchChecked: boolean;
+  end;
 { Progress Note Titles }
 …
 procedure ResetNoteTitles;
 function IsConsultTitle(TitleIEN: Integer): Boolean;
+function IsPRFTitle(TitleIEN: Integer): Boolean;
 function IsClinProcTitle(TitleIEN: Integer): Boolean;
 procedure ListNoteTitlesShort(Dest: TStrings);
 …
 function AskCosignerForNotes: Boolean;
 function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64): Boolean;
 function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64): Boolean;
+function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 function AskSubjectForNotes: Boolean;
 function CanCosign(ATitle, ADocType: integer; AUser: Int64): Boolean;
+function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;
 function CanChangeCosigner(IEN: integer): boolean;
 procedure DefaultCosigner(var IEN: Int64; var Name: string);
 …
 function UserInactive(EIN: String): boolean;
+//Miscellaneous
+function TIUPatch175Installed: boolean;
 const
   CLS_PROGRESS_NOTES = 3;
 implementation
+uses rMisc;
 var
 …
   uNoteTitles: TNoteTitles;
   uTIUPrefs: TTIUPrefs;
+  uPatch175Installed: TPatchInstalled;
 …
   if TitleIEN <= 0 then Exit;
   Result := sCallV('TIU IS THIS A CONSULT?', [TitleIEN]) = '1';
+end;
+function IsPRFTitle(TitleIEN: Integer): Boolean;
+begin
+  Result := False;
+  if TitleIEN <= 0 then Exit;
+  Result := sCallV('TIU ISPRF', [TitleIEN]) = '1';
 end;
 …
 end;
 function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64): Boolean;
+function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 { returns TRUE if a cosignature is required for a document title and author }
 begin
+  Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor]), U, 1) = '1';
+  if TIUPatch175Installed then
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor, ADate]), U, 1) = '1'
+  else
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor]), U, 1) = '1';
 end;
 …
 end;
 function CanCosign(ATitle, ADocType: integer; AUser: Int64): Boolean;
+function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;
 begin
   if ATitle > 0 then ADocType := 0;
+  Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser]), U, 1) <> '1';
+  if TIUPatch175Installed and (ADocType = 0) then
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser, ADate]), U, 1) <> '1'
+  else
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser]), U, 1) <> '1';
 end;
 …
 function IDNotesInstalled: boolean;
 begin
   Result := True;
+  Result := True;   // old patch check no longer called
 end;
 …
 end;
+function TIUPatch175Installed: boolean;
+begin
+  with uPatch175Installed do
+    if not PatchChecked then
+      begin
+        PatchInstalled := ServerHasPatch('TIU*1.0*175');
+        PatchChecked := True;
+      end;
+  Result := uPatch175Installed.PatchInstalled;
+end;
 function NoteHasText(NoteIEN: integer): boolean;
 begin
   Result := (StrToIntDef(sCallV('ORWTIU CHKTXT', [NoteIEN]), 0) > 0);
 end;
 initialization

cprs/branches/foia-cprs/CPRS-Chart/uConst.pas

-              r459
+              r460
   NF_STAT_RESULTS                  = 44;
   NF_DNR_EXPIRING                  = 45;
   NF_MEDICATIONS_EXPIRING          = 47;
+  NF_MEDICATIONS_EXPIRING_INPT     = 47;
   NF_UNVERIFIED_MEDICATION_ORDER   = 48;
   NF_NEW_ORDER                     = 50;
 …
   NF_IMAGING_REQUEST_CHANGED       = 67;
   NF_LAB_THRESHOLD_EXCEEDED        = 68;
+  NF_MAMMOGRAM_RESULTS             = 69;
+  NF_PAP_SMEAR_RESULTS             = 70;
+  NF_ANATOMIC_PATHOLOGY_RESULTS    = 71;
+  NF_MEDICATIONS_EXPIRING_OUTPT    = 72;
   NF_DCSUMM_UNSIGNED_NOTE          = 901;
   NF_CONSULT_UNSIGNED_NOTE         = 902;
 …
   NC_BY_DATE    = 5;                             // Note context - signed notes by date range
   NC_CUSTOM     = 6;                             // Note Context - custom view
+  //Text Search CQ: HDS00002856
+  NC_SEARCHTEXT = 7;                             // Note Content - search for text
   { Surgery View Contexts }
 …
   PKG_CONSULTS = 'GMR(123,';
   PKG_SURGERY  = 'SRF(';
+  PKG_PRF = 'PRF';
   { New Person Filters }

cprs/branches/foia-cprs/CPRS-Chart/uCore.pas

-              r459
+              r460
     RPCName  : String;         //Associated RPC
     IFN      : String;         //IFN of report in file 101.24
+    HDR      : String;         //HDR is source of data if = 1
   end;
 …
   HasFlag: boolean;
   FlagList: TStringList;
+  //hds7591  Clinic/Ward movement.
+  TempEncounterLoc: Integer; // used to Save Encounter Location when user selected "Review Sign Changes" from "File"
+  TempEncounterLocName: string; // since in the path PatientRefresh is done prior to checking if patient has been admitted while entering OPT orders.
 procedure NotifyOtherApps(const AppEvent, AppData: string);
 …
   if(not uNotifyAppsActive) then exit;
   if Application.MainForm = nil then Exit;
+  if User = nil then exit;
   if not User.FNotifyAppsWM then Exit;
   // register the message with windows to get a unique message number (if not already registered)
 …
   i: Integer;
 begin
-  ChangeList := nil;
   ChangeList := FOrders;
   if ChangeList <> nil then with ChangeList do

cprs/branches/foia-cprs/CPRS-Chart/uDocTree.pas

-              r459
+              r460
   procedure MakeBold(ANode: TORTreeNode);
+  var
+    LookingForAddenda: boolean;
   begin
+    LookingForAddenda := (Pos('ADDENDUM', UpperCase(CurrentContext.Keyword)) > 0);
     with ANode do
       begin
 …
         if Parent <> nil then
           begin
+            Parent.Expand(False);
+            if (ImageIndex <> IMG_ADDENDUM) or ((ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+              Parent.Expand(False);
             if Parent.Parent <> nil then
               begin
+                Parent.Parent.Expand(False);
+                if (Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+                  Parent.Parent.Expand(False);
                 if Parent.Parent.Parent <> nil then
+                  Parent.Parent.Parent.Expand(False);
+                  if (Parent.Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
+                    Parent.Parent.Parent.Expand(False);
               end;
           end;

cprs/branches/foia-cprs/CPRS-Chart/uOrPtf.pas

-              r459
+              r460
 procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
 function GetCatIFlag(var FlagArr: TStrings): integer;
+function TriggerPRFPopUp(PTDFN: String): boolean;
 procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
 procedure ClearFlag;
 …
 end;
 function GetCatIFlag(var FlagArr: TStrings): integer;
+function TriggerPRFPopUp(PTDFN: String): boolean;
 begin
+  Result := 0;
+  CallV('ORPRF HASCAT1',[nil]);
+  if RPCBrokerV.Results.Count < 1 then
+    Exit;
+  Result := StrToIntDef(Piece(RPCBrokerV.Results[0],'^',2),0);
+  CallV('ORPRF TRIGGER POPUP',[PTDFN]);
+  Result := RPCBrokerV.Results[0] = '1';
   RPCBrokerV.Results.Delete(0);
-  FlagArr.Assign(RPCBrokerV.Results);
 end;

cprs/branches/foia-cprs/CPRS-Chart/uProbs.pas

-              r459
+              r460
    fFieldList:TstringList; {list of fields by name and class (TKeyVal or TComment)}
    fFilerObj:TstringList;
+   fCmtIsXHTML: boolean;
+   fCmtNoEditReason: string;
    Procedure LoadField(Fldrec:TKeyVal;Id:String;name:string);
    Procedure CreateFields;
 …
    property AltFilerObject:TstringList read GetAltFilerObject;
    property PIFN:string read fPIFN write fPIFN;
+   property CmtIsXHTML: boolean read fCmtIsXHTML;
+   property CmtNoEditReason: string read fCmtNoEditReason;
  end;
 …
 var
   i,j:integer;
   cv:string;
+  cv, noedit:string;
   co:TComment;
   first:boolean;
 …
         begin
           if first then {the first line is just a counter}
+            first := false
+            begin
+              first := false;
+              // 'NEWþ10,0þ-1^These notes are now in XHTML format and must be modified via CPRS-R.'
+              noedit := Piece(fNewRec[i], v, 3);
+              if Piece(noedit, U, 1) = '-1' then
+                begin
+                  fCmtIsXHTML := TRUE;
+                  fCmtNoEditReason := Piece(noedit, U, 2);
+                end
+              else
+                begin
+                  fCmtIsXHTML := FALSE;
+                  fCmtNoEditReason := '';
+                end;
+            end
           else
             begin

cprs/branches/foia-cprs/CPRS-Chart/uReminders.pas

-              r459
+              r460
     FNoResolve: boolean;
     FWHReviewIEN: string;  // AGP CHANGE 23.13 Allow for multiple processing of WH Review of Result Reminders
+    FRemWipe: integer;
   protected
     function GetIEN: string; virtual;
 …
     property DlgData: string read FDlgData; //AGP Change 24.8
     property WHReviewIEN: string read FWHReviewIEN write FWHReviewIEN;  //AGP CHANGE 23.13
+    property RemWipe: integer read FRemWipe write FRemWipe;
   end;
 …
     FMSTPrompt: TRemPrompt;
     FWHPrintDevice, FWHResultChk, FWHResultNot: String;
     //FRemWHNotPurpose: TStrings;
+    FVitalDateTime: TFMDateTime;  //AGP Changes 26.1
   protected
     procedure Check4ChildrenSharedPrompts;
 …
     property WHResultChk: String read FWHResultChk write FWHResultChk;
     property WHResultNot: String read FWHResultNot write FWHResultNot;
     //property RemWHNotPurpose: TStrings read FRemWHNotPurpose write FRemWHNotPurpose;
+    property VitalDateTime: TFMDateTime read FVitalDateTime write FVitalDateTime;
   end;
 …
     FPCERoot: TRemPCERoot;
     FParent: TRemDlgElement;
     FRec3: string;
+    FRec3: string;
     FActiveDates: TStringList; //Active dates for finding items. (rectype 3)
 //    FRoot: string;
 …
     FMonthReq: boolean;
     FPrintNow: String;
+    FMHTestComplete: integer;
   protected
     function RemDataActive(RData: TRemData; EncDt: TFMDateTime):Boolean;
 …
   NotPurposeValue: string;
   WHRemPrint: string;
+  InitialRemindersLoaded: boolean = FALSE;
 const
 …
   RemPriorityText: array[1..3] of string = ('High','','Low');
   ClinMaintText = 'Clinical Maintenance';
-  InitialRemindersLoaded: boolean = FALSE;
   dtUnknown = TRemDataType(-1);
 …
 uses rCore, uCore, rReminders, fRptBox, uConst, fReminderDialog, fNotes, rMisc,
      fMHTest, rPCE, rTemplates, dShared, uTemplateFields, fIconLegend, fReminderTree;
+     fMHTest, rPCE, rTemplates, dShared, uTemplateFields, fIconLegend, fReminderTree, uInit;
 type
 …
         begin
           Sts := Piece(Data, U, 6);
+          if(Sts = '0') or (Sts = '1') then
+          //if(Sts = '0') or (Sts = '1') then
+          if(Sts = '0') or (Sts = '1') or (Sts = '3') or (Sts = '4') then     //AGP Error change 26.8
           begin
             Result := TRUE;
 …
     begin
       Tmp := Piece(Data, U, 6);
+      if(Tmp = '1') then iidx := 2
+      //if(Tmp = '1') then iidx := 2
+      if (Tmp = '3') or (Tmp = '4') or (Tmp = '1') then iidx :=2     //AGP ERROR CHANGE 26.8
       else if(Tmp = '0') then iidx := 3
       else
 …
          if(NewStatus = '1') then Msg := 'Due'
     else if(NewStatus = '0') then Msg := 'Applicable'
+    else if(NewStatus = '3') then Msg := 'Error'    //AGP Error code change 26.8
+    else if (NewStatus = '4') then Msg := 'CNBD'    //AGP Error code change 26.8
     else                          Msg := 'Not Applicable';
     Msg := RName + ' is ' + Msg + '.';
 …
       Data := RemCode + EvaluatedReminders[i];
       Tmp := Piece(Data,U,6);
+           if(Tmp = '1') then Add2Tree(rfDue, DueCatID)
+      //     if(Tmp = '1') then Add2Tree(rfDue, DueCatID)
+      if(Tmp = '1') or (Tmp = '3') or (Tmp = '4') then Add2Tree(rfDue, DueCatID) //AGP Error code change 26.8
       else if(Tmp = '0') then Add2Tree(rfApplicable, ApplCatID)
       else                    Add2Tree(rfNotApplicable, NotApplCatID);
 …
 begin
   TempSL := GetDlgSL;
+  if Piece(TempSL[0],U,2)='1' then
+    begin
+      Self.RemWipe := 1;
+    end;
   idx := -1;
   repeat
 …
 begin
   Tmp := Piece(FRec1, U, 4);
   if(Tmp = 'D') then Result := etDisplayOnly
   else if(Tmp = 'T') then Result := etTaxonomy
   else Result := etCheckBox;
+      Tmp := Piece(FRec1, U, 4);
+      if(Tmp = 'D') then Result := etDisplayOnly
+      else if(Tmp = 'T') then Result := etTaxonomy
+      else Result := etCheckBox;
 end;
 …
         dt := Code2DataType(piece(TempSL[idx], U, r3Type));
         if(dt <> dtUnknown) and ((dt <> dtOrder) or
           (CharAt(piece(TempSL[idx], U, 11),1) in ['D', 'Q', 'M', 'O'])) and
+          (CharAt(piece(TempSL[idx], U, 11),1) in ['D', 'Q', 'M', 'O', 'A'])) and   //AGP change 26.10 for allergy orders
           ((dt <> dtMentalHealthTest) or MHTestsOK) then
         begin
 …
           DoLbl := Prompt.Required;
           case pt of
             ptComment, ptQuantity, ptSkinReading:
+            ptComment, ptQuantity:
               begin
                 Ctrl.edt := TEdit.Create(AOwner);
 …
             ptVisitLocation, ptLevelUnderstanding,
             ptSeries, ptReaction, ptExamResults,
             ptLevelSeverity, ptSkinResults:
+            ptLevelSeverity, ptSkinResults, ptSkinReading:
               begin
                 Ctrl.cbo := TORComboBox.Create(AOwner);
 …
                 Ctrl.cbo.Style := orcsDropDown;
                 Ctrl.cbo.Pieces := '2';
+                Ctrl.cbo.Tag := ComboPromptTags[pt];
+                PCELoadORCombo(Ctrl.cbo, MinX, MaxX);
+                if pt = ptSkinReading then
+                  begin
+                     Ctrl.cbo.Pieces := '1';
+                     Ctrl.cbo.Items.Add('');
+                     for j := 0 to 50 do Ctrl.cbo.Items.Add(inttostr(j));
+                     GetComboBoxMinMax(Ctrl.cbo,MinX, MaxX);
+                  end;
+                if pt <> ptSkinReading then
+                  begin
+                     Ctrl.cbo.Tag := ComboPromptTags[pt];
+                     PCELoadORCombo(Ctrl.cbo, MinX, MaxX);
+                  end;
                 if pt = ptVisitLocation then
                 begin
 …
     end;
   end;
 begin
   Result := nil;
 …
 end;
-{ TODO -oLori -cNext : TRemDlgElement.AddText }
 procedure TRemDlgElement.AddText(Lst: TStrings);
 var
 …
                 (not Prompt.Forced) then
         begin
           if (Pt = ptMHTest) and ((Prompt.FValue = '') or (pos('X',Prompt.FValue)>0)) then
+          if (Pt = ptMHTest) and (Prompt.FMHTestComplete = 2) then
             begin
+               if Prompt.FValue = '' then
+                  WordWrap('MH test '+ Piece(Prompt.FData.FRec3,U,8) + ' not done',List,65,6);
+               if pos('X',Prompt.FValue)>0 then
+                  WordWrap('You are missing one or more responses in the MH test '+
+                           Piece(Prompt.FData.FRec3,U,8),List,65,6);
+               WordWrap(' ',List,65,6);
+               if ((Prompt.FValue = '') or (pos('X',Prompt.FValue)>0)) then
+                  begin
+                    if Prompt.FValue = '' then
+                        WordWrap('MH test '+ Piece(Prompt.FData.FRec3,U,8) + ' not done',List,65,6);
+                    if pos('X',Prompt.FValue)>0 then
+                        WordWrap('You are missing one or more responses in the MH test '+
+                               Piece(Prompt.FData.FRec3,U,8),List,65,6);
+                   WordWrap(' ',List,65,6);
+                  end;
             end;
+          if (Pt = ptMHTest) and (Prompt.FMHTestComplete = 0) or (Prompt.FValue = '') then
+                  begin
+                    if Prompt.FValue = '' then
+                        WordWrap('MH test '+ Piece(Prompt.FData.FRec3,U,8) + ' not done',List,65,6);
+                    if pos('X',Prompt.FValue)>0 then
+                        WordWrap('You are missing one or more responses in the MH test '+
+                               Piece(Prompt.FData.FRec3,U,8),List,65,6);
+                   WordWrap(' ',List,65,6);
+                  end;
           if (Pt = ptGAF) and ((Prompt.FValue = '0') or (Prompt.FValue = '')) then
             begin
 …
           unt := Prompt.VitalUnitValue;
           ConvertVital(v, rte, unt);
+          txt := U + VitalCodes[v] + U + rte + U + FloatToStr(RemForm.PCEObj.VisitDateTime);
+          //txt := U + VitalCodes[v] + U + rte + U + FloatToStr(RemForm.PCEObj.VisitDateTime);  AGP Change 26.1 commented out
+          txt := U + VitalCodes[v] + U + rte + U + '0'; //AGP Change 26.1 Use for Vital date/time
           if(not Finishing) then
             txt := Char(ord('A')+ord(v)) + FormatVitalForNote(txt);  // Add vital sort char
 …
       NeedRedraw := FALSE;
       case pt of
         ptComment, ptQuantity, ptSkinReading:
+        ptComment, ptQuantity:
           TmpValue := (Sender as TEdit).Text;
 …
                        end;
         end;
         ptExamResults, ptSkinResults, ptLevelSeverity,
         ptSeries, ptReaction, ptLevelUnderstanding:
+        ptSeries, ptReaction, ptLevelUnderstanding, ptSkinReading: //(AGP Change 26.1)
           TmpValue := (Sender as TORComboBox).ItemID;
         else
 …
                              idx := -1;
                              TmpValue := (Sender as TORComboBox).ItemID;
+                             if FParent.VitalDateTime = 0 then
+                                  FParent.VitalDateTime := FMNow;
                            end;
               else
 …
             end;
             if(idx > 0) then
+              SetPiece(TmpValue, ';', idx, TORExposedControl(Sender).Text);
+              begin
+                 //AGP Change 26.1 change Vital time/date to Now instead of encounter date/time
+                 SetPiece(TmpValue, ';', idx, TORExposedControl(Sender).Text);
+                 if (FParent.VitalDateTime > 0) and (TORExposedControl(Sender).Text = '') then
+                       FParent.VitalDateTime := 0;
+                 if (FParent.VitalDateTime = 0) and (TORExposedControl(Sender).Text <> '') then
+                       FParent.VitalDateTime := FMNow;
+              end;
           end
           else
 …
                     Result := tmp;
+      ptSkinReading: if(StrToIntDef(tmp,0) <> 0) then
+                       Result := tmp;
+     (* ptSkinReading: if(StrToIntDef(tmp,0) <> 0) then
+                       Result := tmp;  *)
+     ptSkinReading:   // (AGP Change 26.1)
+       begin
+         Result := tmp;
+       end;
       ptVisitDate:
 …
         (FCurrentControl as TUpDown).Position := StrToIntDef(GetValue,1);
       ptSkinReading:
         (FCurrentControl as TUpDown).Position := StrToIntDef(GetValue,0);
+     (* ptSkinReading:
+        (FCurrentControl as TUpDown).Position := StrToIntDef(GetValue,0); *)
       ptVisitDate:
 …
       ptExamResults, ptSkinResults, ptLevelSeverity,
       ptSeries, ptReaction, ptLevelUnderstanding:
+      ptSeries, ptReaction, ptLevelUnderstanding, ptSkinReading: //(AGP Change 26.1)
         (FCurrentControl as TORComboBox).SelectByID(GetValue);
 …
 var
   TmpSL: TStringList;
   i: integer;
+  i, TestComp: integer;
   Before, After: string;
 begin
+  TestComp := 0;
   if(MHTestAuthorized(FData.Narrative)) then
   begin
 …
       Before := GetValue;
       After := PerformMHTest(Before, FData.Narrative, TmpSL);
+      if(Before <> After) then
+      if uinit.TimedOut then After := '';
+      if pos(U,After)>0 then
+        begin
+          TestComp := StrtoInt(Piece(After,U,2));
+          self.FMHTestComplete := TestComp;
+          After := Piece(After,U,1);
+        end;
+      if(Before <> After) and (not uInit.TimedOut) then
       begin
         if(After = '') or (FParent.ResultDlgID = 0) then
           FMiscText := ''
         else
+        if TestComp > 0 then
         begin
           MentalHealthTestResults(FMiscText, FParent.ResultDlgID, FData.Narrative,
 …
       end;
     finally
+      FParent.FReminder.EndTextChanged(Sender);
+    end;
+    if(FParent.ElemType = etDisplayOnly) and (not assigned(FParent.FParent)) then
+      RemindersInProcess.Notifier.Notify;
+  end
+  else
+    InfoBox('Not Authorized to score the ' + FData.Narrative + ' test.',
+            'Insufficient Authorization', MB_OK + MB_ICONERROR);
+      if not uInit.TimedOut then
+         FParent.FReminder.EndTextChanged(Sender);
+    end;
+    if not uInit.TimedOut then
+         if(FParent.ElemType = etDisplayOnly) and (not assigned(FParent.FParent)) then
+            RemindersInProcess.Notifier.Notify;
+          end
+    else
+                InfoBox('Not Authorized to score the ' + FData.Narrative + ' test.',
+                   'Insufficient Authorization', MB_OK + MB_ICONERROR);
 end;

cprs/branches/foia-cprs/CPRS-Chart/uReports.pas

-              r459
+              r460
     SortOrder  : String;         //#:# of columns to use in a multi-column sort
     MaxDaysBack: String;         //Maximum number of Days allowed for report
+    Direct     : String;         //Direct Remote Call flag
+    HDR        : String;         //HDR is data source if = 1
 end;
 …
       SortOrder       := Piece(x, U, 12);
       MaxDaysBack     := Piece(x, U, 13);
+      Direct          := Piece(x, U, 14);
+      HDR             := Piece(x, U, 15);
     end;
   Result := AnObject;

cprs/branches/foia-cprs/CPRS-Chart/uSignItems.pas

-              r459
+              r460
 unit uSignItems;
+      unit uSignItems;
 {.$define debug}
 …
                   siEnvironmentalContaminants, siMST, siHeadNeckCancer, siCombatVeteran);
   TSigItemTagInfo = record
+  TSigItemTagInfo =  record
     SigType: TSigItemType;
     Index: integer;
 …
     function  FindCBValues(ATag: integer): TORCheckBox;
     function  GetTempCkBxState(Index: integer; CBValue:TSigItemType): string;
   protected
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 …
     procedure CopyCB(FromIndex, ToIndex: integer); //BAPHII 1.3.1
     procedure SetSigItems(Sender: TObject; sourceOrderID: string); //BAPHII 1.3.1
+    //procedure SetSigItems(Sender: TObject; itemsList: TStringList; sourceOrderID: string); //BAPHII 1.3.1
     function ItemToTag(Info: TSigItemTagInfo): integer; //CQ5074
     function TagToItem(ATag: integer): TSigItemTagInfo; //CQ5074
 …
 const
   TC_Order_Error = 'All Service Connection and/or Rated Disabilities questions must be answered, '+#13+
+                   'and at least one diagnosis selected for each order that requires a diagnosis.';
+  TC_Order_Error = 'All Service Connection and/or Rated Disabilities questions must be answered.';
   TX_Order_Error = 'All Service Connection and/or Rated Disabilities questions must be answered, '+#13+
 …
   BaseFlags: string;
   tempCkBx: TORCheckBox;
   thisOrderID: string; //BAPHII 1.3.2
+  thisOrderID: string;
   thisChangeItem: TChangeItem;
 function TSigItems.GetSigItems : TORStringList;
+{
- BAPHII 1.3.1
+}
 begin
   Result := FItems;
 …
 function TSigItems.FindCB(ATag: integer): TORCheckBox;
+{
- BAPHII 1.3.1
+}
 var
   i: integer;
 …
 procedure TSigItems.CopyCB(FromIndex, ToIndex: integer);
+{
- BAPHII 1.3.1
+}
 var
   si: TSigItemType;
 …
 var
   idx: integer;
-  i,j: integer;
 begin
   if ItemType = CH_ORD then
   begin
     idx := FItems.IndexOfPiece(ID);
     if idx < 0 then
       idx := FItems.Add(ID);
-      // when an order has not been sent to the server and is deleted
-      // or discontinued the treatment factors remain from the original order,
-      // this will clear the treatment factors, which will be set based on HIMS
-      if BILLING_AWARE then
-      begin
-         if UBAGlobals.BADeltedOrders.Count > 0 then
-         begin
-            for i := 0 to FItems.Count-1 do
-            begin
-               for j := 0 to UBAGlobals.BADeltedOrders.Count-1 do
-               begin
-                  if (Piece(fItems.Strings[i],U,1) = UBAGlobals.BADeltedOrders.Strings[j] ) then
-                  begin
-                     fItems.Strings[i] := UBAGlobals.BADeltedOrders.Strings[j];
-                     UBAGlobals.BADeltedOrders.Clear;
-                  end;
-               end;
-            end;
-         end;
-     end;
     FItems.SetStrPiece(idx, 2, IntToStr(Index));
     FItems.SetStrPiece(idx,5,INIT_STR);    // hds4807 value was being reatained when same order selected in FReview.
 …
        if idx > 0 then
           begin
           if  BILLING_AWARE then
               rpcGetSC4Orders
+         if  BILLING_AWARE then
+              rpcGetSC4Orders // get SC/EIC information for all CIDC TYPE orders
           else
+             GetCoPay4Orders;
+            for i := 0 to RPCBrokerV.Results.Count-1 do
+             GetCoPay4Orders;   // enforces existing NON CIDC CO-PAY rules
+             for i := 0 to RPCBrokerV.Results.Count-1 do
                begin
                   s := RPCBrokerV.Results[i];
 …
                      FItems.SetStrPiece(idx, 4, Flags);
                       // new code  gary  if deleted order and ba on then
+                      // new code  if deleted order and ba on then
                       // reset appropriate tf flags to "?".
 …
     for si := low(TSigItemType) to high(TSigItemType) do
       StsUsed[si] := FALSE;
+    //  loop thru orders selected to be signed fReview/fOrdersSign.
     for i := 0 to FItems.Count-1 do
        begin
 …
          if (piece(s,u,2) <> '-1') and (piece(s,u,3) = '1') then
             begin
+            s := piece(s, u, 4);
+             s := piece(s, u, 4); // SC/EI
+             // code added 01/17/2006 - check dc'd nurse orders, originals where requiring CIDC if assigned to patient.
+             if (BILLING_AWARE) and (not UBACore.IsOrderBillable(Piece(s,U,1))) then
+               s :=  NA_FLAGS;
             for si := low(TSigItemType) to high(TSigItemType) do
 …
                         begin
                         Flags := piece(s,u,4);
+                                                 //loop thru treatment factors
                         for sx := low(TSigItemType) to high(TSigItemType) do
                            begin

cprs/branches/foia-cprs/CPRS-Chart/uSpell.pas

r459	r460
173	173	MSWord.Application.Options.SaveInterval := 0;
174	174	MSWord.Application.Options.AutoFormatReplaceQuotes := False;
	175	MSWord.Application.Options.AutoFormatAsYouTypeReplaceQuotes := False;
175	176	MSWord.ResetIgnoreAll;
176	177

cprs/branches/foia-cprs/CPRS-Chart/uTIU.pas

-              r459
+              r460
     ClinProcDateTime: TFMDateTime;
     Lines: TStrings;
+    PRF_IEN: integer;
+    ActionIEN: string;
   end;
 …
     KeyWord: string;
     Filtered: Boolean;
+    SearchString: String;  // Text Search CQ: HDS00002856
   end ;

Context Navigation

Legend: