Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r459 r460  
    9797    procedure SetItemTextToState;
    9898    procedure FormatListForScreenReader;
     99
    99100  public
    100101    procedure SetCheckBoxStatus(thisOrderID: string);
    … …  
    136137uses ORFn, rCore, fNotes, fConsults, fOrders, rOrders, Hash, fDCSumm, fOCSession, uOrders,
    137138     fSignItem, fOrdersPrint, fLkUpLocation, fFrame, uSignItems, fSurgery,
    138      fBALocalDiagnoses, UBAConst, UBAMessages, fOrdersSign;
     139     fBALocalDiagnoses, UBAConst, UBAMessages, fOrdersSign, fClinicWardMeds;
    139140
    140141const
    … …  
    293294
    294295    end;
    295     // if Result then Changes.Clear;  possibly clear changes here ??
     296
    296297  finally
    297298   Changes.OnRemove := nil;     {**RV**}
     299   frmReview.Release;
    298300  end;
    299301end;
    … …  
    340342  if  BILLING_AWARE then
    341343  begin
    342     UBAGlobals.ChangeItemOrderNum := Copy(ChangeItem.ID, 0, 8);
     344    UBAGlobals.ChangeItemOrderNum := ChangeItem.ID; // GE 2/21/2006 removed "Copy(ChangeItem.ID,0,8)" issue when sites have order number > 8 digits
    343345     // HDS00005025
    344346
    … …  
    836838  TC_SAVERR  = 'Error Saving Order';
    837839var
    838   i, idx, AType, theSts: Integer;
     840  i, idx, AType, PrintLoc, theSts: Integer;
    839841  SigSts, RelSts, Nature: Char;
    840842  ESCode, AnID, AnErrMsg: string;
    … …  
    842844  OrderList: TStringList;
    843845  SaveCoPay: boolean;
    844   DigSigErr, DigStoreErr: Boolean;
     846  DigSigErr, DigStoreErr, CryptoChecked: Boolean;
    845847  SigData, SigUser, SigDrugSch, SigDEA: string;
    846848  cSignature, cHashData, cCrlUrl, cErr: string;
    … …  
    884886  ESCode := '';
    885887  SaveCoPay := FALSE;
     888  PrintLoc := 0;
    886889  if BILLING_AWARE then
    887890  begin
    … …  
    908911    OrderList := TStringList.Create;
    909912    DigSigErr := True;
    910     DigStoreErr := False;
    911     if GetPKISite and GetPKIUse then
    912       begin
    913         try  //PKI object creation
    914           crypto := CoXuDigSigS.Create;
    915           crypto.GetCSP;
    916           StatusText(crypto.Reason);
    917           DigSigErr := False;
    918         except
    919         on  E: Exception do
    920           begin
    921             DigSigErr := True;
    922           end;
    923         end;
    924       end;
     913    CryptoChecked := False;
    925914    try
    926915      Nature := NO_PROVIDER;
    … …  
    993982              OrderList.Add(ChangeItem.ID + U + SS_ONCHART + U + RS_RELEASE + U + NO_WRITTEN);
    994983
    995 
    996984          end; {with lstReview}
    997985        end; {OR_NOKEY, OR_CLERK, OR_NURSE, OR_STUDENT}
    … …  
    1011999                               SigSts := SS_ESIGNED;
    10121000                               RelSts := RS_RELEASE;
     1001                               if (OrderRequiresDigitalSignature(ChangeItem.ID)) and (CryptoChecked = false)
     1002                                 and GetPKISite and GetPKIUse then
     1003                                  begin
     1004                                    Cryptochecked := true;
     1005                                    try  //PKI object creation
     1006                                      crypto := CoXuDigSigS.Create;
     1007                                      crypto.GetCSP;
     1008                                      StatusText(crypto.Reason);
     1009                                      DigSigErr := False;
     1010                                    except
     1011                                    on  E: Exception do
     1012                                      begin
     1013                                        DigSigErr := True;
     1014                                      end;
     1015                                    end;
     1016                                  end;
    10131017                               if (DigSigErr = false) and (OrderRequiresDigitalSignature(ChangeItem.ID))
    10141018                                 and (SigItems.OK2SaveSettings) then
    … …  
    11221126             else
    11231127             begin
    1124                 InfoBox(TX_Order_Error, 'Review/Sign Orders', MB_OK);
     1128                if BILLING_AWARE then
     1129                   InfoBox(TX_Order_Error, 'Review/Sign Orders', MB_OK)
     1130                   else
     1131                      InfoBox(TC_Order_Error, 'Review/Sign Orders', MB_OK);
    11251132                Exit;
    11261133             end
    … …  
    11371144            if (cmdOk.Caption = 'Sign') then
    11381145              begin
    1139                 if Not BADxEntered then
     1146                if Not UBACore.BADxEntered then
    11401147                begin
    1141                    SaveCoPay := FALSE;
    11421148                   InfoBox(TX_NO_DX, TC_NO_DX, MB_OK);
    11431149                   Exit;
    … …  
    11561162        if OrderList.Count > 0 then
    11571163        begin
     1164
     1165        //hds7591  Clinic/Ward movement.  Nurse orders
     1166          if (cmdOk.Caption = 'Sign') or (cmdOK.Caption = 'OK') and (not frmFrame.TimedOut) then
     1167          begin
     1168             if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then
     1169                frmClinicWardMeds.ClinicOrWardLocation(OrderList, uCore.TempEncounterLoc,uCore.TempEncounterLocName, PrintLoc)
     1170             else
     1171                if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then
     1172                   frmClinicWardMeds.ClinicOrWardLocation(OrderList, Encounter.Location,Encounter.LocationName, PrintLoc);
     1173          end;
     1174          uCore.TempEncounterLoc := 0;
     1175          uCore.TempEncounterLocName := '';
     1176        end;
     1177        //hds7591  Clinic/Ward movement.
     1178       
    11581179          if SaveCoPay then
    11591180            SigItems.SaveSettings; // Save CoPay FIRST
    11601181          SendOrders(OrderList, ESCode);   {*KCM*}
    1161         end;
     1182
    11621183        with OrderList do for i := 0 to Count - 1 do
    11631184        begin
    … …  
    11831204            if theSts = 10 then  OrderList.Delete(idx);  //signed delayed order should not be printed.
    11841205          end;
    1185           PrintOrdersOnSignRelease(OrderList, Nature);
     1206          PrintOrdersOnSignRelease(OrderList, Nature, PrintLoc);
    11861207        end;
    11871208        StatusText('');
    … …  
    13231344       if frmFrame.TimedOut then Exit;
    13241345        //Billing Awareness 'flyover' hint includes Dx code(s) when Dx code(s) have been assigned to an order
    1325           tempRec := TBADxRecord.Create;
    13261346
    13271347          if Assigned(frmReview) then
    … …  
    14021422  UBAGlobals.PLFactorsIndexes.Clear;
    14031423
    1404   numSelected := 0;
    14051424  match := false;
    14061425  allBlank := false;
    … …  
    15501569              thisOrderList.Add(thisChangeItem.ID);
    15511570              // Returns True if All selected orders are N/A, Order selected are NON CIDC or DC'd
    1552               if IsAllOrdersNA(thisOrderList) then
     1571              if uBACore.IsAllOrdersNA(thisOrderList) then
    15531572                 begin
    15541573                 Diagnosis1.Enabled := false;
    … …  
    17121731        end;
    17131732   end;
    1714 
    1715   //CopyActive := true; //CQ6225
    1716   //Paste1.Enabled := true; //CQ6225 
    1717 
    17181733end;
    17191734
    … …  
    17371752          if (frmReview.lstReview.Selected[i]) then
    17381753            begin
    1739             thisChangeItem := TChangeItem.Create;
    1740             thisChangeItem := nil;
    17411754            thisChangeItem := TChangeItem(lstReview.Items.Objects[i]);
    17421755
    … …  
    17561769
    17571770                  //***************************************************************
    1758                   if (NOT UBACore.IsOrderBillable(fReview.targetOrderID) ) then// and
    1759                   //   (NOT tempDxNodeExists(fReview.targetOrderID) )then   // added to allow copy to NON CIDC consult orders that requires a DX.
    1760                     begin
     1771                  if (NOT UBACore.IsOrderBillable(fReview.targetOrderID) ) then
     1772                   begin
    17611773                    ShowMessage(BA_NA_PASTE_DISALLOWED);
    17621774                    fReview.targetOrderID := '';
    … …  
    17681780                  with newRec do
    17691781                    begin
    1770                     FOrderID := fReview.targetOrderID;
    1771                     FBADxCode := CopyBuffer.FBADxCode;
    1772                     FBASecDx1 := CopyBuffer.FBASecDx1;
    1773                     FBASecDx2 := CopyBuffer.FBASecDx2;
    1774                     FBASecDx3 := CopyBuffer.FBASecDx3;
     1782                      FOrderID := fReview.targetOrderID;
     1783                      FBADxCode := CopyBuffer.FBADxCode;
     1784                      FBASecDx1 := CopyBuffer.FBASecDx1;
     1785                      FBASecDx2 := CopyBuffer.FBASecDx2;
     1786                      FBASecDx3 := CopyBuffer.FBASecDx3;
    17751787                    end;
    17761788
    … …  
    17961808
    17971809  lstReview.Refresh; //Update grid to show pasted Dx/TF/CI
    1798 {
    1799   //CQ6225
    1800   if CopyActive then
    1801      begin
    1802      Paste1.Enabled := false;
    1803      CopyActive := false;
    1804      end;
    1805   //end CQ6225
    1806 }
     1810
    18071811end;
    18081812
    … …  
    18401844begin
    18411845  howMany := 0;
    1842   thisItem := TChangeItem.Create;
    1843  
     1846
    18441847  for i := 0 to lstReview.Items.Count-1 do
    18451848     begin
    … …  
    19581961     FRVTFHintWindowActive := False;
    19591962  end;
    1960    x := 0;
    1961    y := 0;
    19621963
    19631964   FRVTFHintWindow := THintWindow.Create(frmReview); //(frmReview);
    … …  
    20332034  Y: Integer);
    20342035begin
    2035   IF BILLING_AWARE then
     2036//  IF BILLING_AWARE then
    20362037    if FRVTFHintWindowActive then
    20372038    begin
    … …  
    20432044procedure TfrmReview.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    20442045begin
    2045 if BILLING_AWARE then
    2046 begin
    20472046  if FRVTFHintWindowActive then
    20482047  begin
    … …  
    20512050     Application.ProcessMessages;
    20522051  end;
    2053   end;
    20542052end;
    20552053
    … …  
    20612059        begin
    20622060        //Abbreviated captions
    2063         Label23.ShowHint := false;
    2064         StaticText1.ShowHint := false;
    2065         Label17.ShowHint := false;
    2066         Label15.ShowHint := false;
    2067         Label13.ShowHint := false;
    2068         Label11.ShowHint := false;
    2069         lblHNC.ShowHint := false;
     2061          Label23.ShowHint := false;
     2062          StaticText1.ShowHint := false;
     2063          Label17.ShowHint := false;
     2064          Label15.ShowHint := false;
     2065          Label13.ShowHint := false;
     2066          Label11.ShowHint := false;
     2067          lblHNC.ShowHint := false;
    20702068        //Long captions
    2071         Label24.ShowHint := false;
    2072         staticText4.ShowHint := false;
    2073         Label17.ShowHint := false;
    2074         Label18.ShowHint := false;
    2075         Label15.ShowHint := false;
    2076         Label16.ShowHint := false;
    2077         Label13.ShowHint := false;
    2078         Label14.ShowHint := false;
    2079         Label11.ShowHint := false;
    2080         Label12.ShowHint := false;
    2081         lblHNC.ShowHint := false;
    2082         lblHNC2.ShowHint := false;
     2069          Label24.ShowHint := false;
     2070          staticText4.ShowHint := false;
     2071          Label17.ShowHint := false;
     2072          Label18.ShowHint := false;
     2073          Label15.ShowHint := false;
     2074          Label16.ShowHint := false;
     2075          Label13.ShowHint := false;
     2076          Label14.ShowHint := false;
     2077          Label11.ShowHint := false;
     2078          Label12.ShowHint := false;
     2079          lblHNC.ShowHint := false;
     2080          lblHNC2.ShowHint := false;
    20832081        end;
    20842082     end
    … …  
    20882086        begin
    20892087        //Abbreviated captions
    2090         Label23.ShowHint := true;
    2091         StaticText1.ShowHint := true;
    2092         Label17.ShowHint := true;
    2093         Label15.ShowHint := true;
    2094         Label13.ShowHint := true;
    2095         Label11.ShowHint := true;
    2096         lblHNC.ShowHint := true;
    2097         //Long captions
    2098         Label24.ShowHint := true;
    2099         staticText4.ShowHint := true;
    2100         Label17.ShowHint := true;
    2101         Label18.ShowHint := true;
    2102         Label15.ShowHint := true;
    2103         Label16.ShowHint := true;
    2104         Label13.ShowHint := true;
    2105         Label14.ShowHint := true;
    2106         Label11.ShowHint := true;
    2107         Label12.ShowHint := true;
    2108         lblHNC.ShowHint := true;
    2109         lblHNC2.ShowHint := true;
     2088          Label23.ShowHint := true;
     2089          StaticText1.ShowHint := true;
     2090          Label17.ShowHint := true;
     2091          Label15.ShowHint := true;
     2092          Label13.ShowHint := true;
     2093          Label11.ShowHint := true;
     2094          lblHNC.ShowHint := true;
     2095          //Long captions
     2096          Label24.ShowHint := true;
     2097          staticText4.ShowHint := true;
     2098          Label17.ShowHint := true;
     2099          Label18.ShowHint := true;
     2100          Label15.ShowHint := true;
     2101          Label16.ShowHint := true;
     2102          Label13.ShowHint := true;
     2103          Label14.ShowHint := true;
     2104          Label11.ShowHint := true;
     2105          Label12.ShowHint := true;
     2106          lblHNC.ShowHint := true;
     2107          lblHNC2.ShowHint := true;
    21102108        end;
    21112109     end;
    21122110end;
    21132111
    2114 // determines if BA switch is on, user is provider and has orelse key
    2115 // is true, BA data is not mandatory.
    21162112procedure TfrmReview.FormClose(Sender: TObject; var Action: TCloseAction);
    21172113begin
    2118  if BILLING_AWARE then
    2119  begin
     2114
    21202115    if FRVTFHintWindowActive then
    21212116    begin
    … …  
    21252120      with fraCopay do
    21262121        begin
    2127         Label24.ShowHint := false;
    2128         staticText4.ShowHint := false;
    2129         Label18.ShowHint := false;
    2130         Label16.ShowHint := false;
    2131         Label14.ShowHint := false;
    2132         Label12.ShowHint := false;
    2133         lblHNC2.ShowHint := false;
     2122          Label24.ShowHint := false;
     2123          staticText4.ShowHint := false;
     2124          Label18.ShowHint := false;
     2125          Label16.ShowHint := false;
     2126          Label14.ShowHint := false;
     2127          Label12.ShowHint := false;
     2128          lblHNC2.ShowHint := false;
    21342129        end;
    2135     end;
    21362130 end;
    21372131
    … …  
    21642158  i : integer;
    21652159begin
    2166   //The with statement below would cause access violations on other Delphi machines.
    2167 {    with lstReview do
    2168     begin }
    2169   //Must use fully qualifying path includeing the unit... very wierd!
     2160
    21702161  if fReview.frmReview.lstReview.Count < 1 then Exit;
    21712162  for i := 0 to fReview.frmReview.lstReview.Count-1 do
    … …  
    21802171  if fReview.frmReview.lstReview.ItemIndex >= 0 then
    21812172    fReview.frmReview.lstReview.Selected[fReview.frmReview.lstReview.ItemIndex] := True;
    2182  //   end;
    21832173end;
    21842174
    … …  
    21922182procedure TfrmReview.FormatListForScreenReader;
    21932183var
    2194   ListStateOn : boolean;
     2184  ListStateOn : longbool;
     2185  Success: longbool;
    21952186begin
    21962187  //Determine if a screen reader is currently being used.
    2197   SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0);
    2198   if ListStateOn then
     2188  Success := SystemParametersInfo(SPI_GETSCREENREADER, 0, @ListStateOn,0);
     2189  if Success and ListStateOn then
    21992190    SetItemTextToState;
    22002191end;
Note: See TracChangeset for help on using the changeset viewer.