Ignore:
Timestamp:
Jul 7, 2010, 4:31:10 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/BA/UBACore.pas

    r456 r829  
    112112  end;
    113113
    114    BAOrderList.Assign(holdOrderList); //assign signable orders to BAOrderList for further processing
     114   FastAssign(holdOrderList, BAOrderList); //assign signable orders to BAOrderList for further processing
    115115   holdOrderList.Clear; // CQ5025
    116116
    117117    //call with passList determine if LRMP
    118118     if rpcOrderRequiresDx(passList) then
    119       BAOrderList.Assign(updatedBAOrderList);
     119      FastAssign(updatedBAOrderList, BAOrderList);
    120120
    121121    // check of all orders dx columns are flagged with N/A.....
    … …  
    165165    end
    166166    else
    167        updatedList.Assign(pList);
     167       FastAssign(pList, updatedList);
    168168
    169169    // call returns boolean, orders is billable=1 or nonbillable=0 or discontinued = 0
    … …  
    213213     on EListError do
    214214        begin
    215         {$ifdef debug}ShowMessage('EListError in UBACore.IsOrderBillable()');{$endif}
     215        {$ifdef debug}Show508Message('EListError in UBACore.IsOrderBillable()');{$endif}
    216216        raise;
    217217        end;
    … …  
    334334        begin
    335335           // Verify Patient is Insured
     336           // OR Switch = 2 ask questions for all patients.
    336337           if  rpcIsPatientInsured(pPatientDFN)  then
    337338              BILLING_AWARE := TRUE;
    … …  
    407408       on EListError do
    408409       begin
    409          {$ifdef debug}ShowMessage('EListError in UBACore.rpcSaveBillingDxEntered()');{$endif}
     410         {$ifdef debug}Show508Message('EListError in UBACore.rpcSaveBillingDxEntered()');{$endif}
    410411         raise;
    411412     end;
    … …  
    419420procedure rpcGetSC4Orders;
    420421begin
     422//  ****** RPC Logic returning SC/TF codes for COPAY  ********
     423//     if (CIDC is ON) and (PatientInsured is True) then
     424//        return SC/TF for OutPatient Meds, Labs, Prosthetics, Imaging.
     425//     else
     426//       return SC/TF for Outpatient Meds only.
    421427   RPCBrokerV.Param[0].PType := literal;
    422428   RPCBrokerV.Param[0].Value := Patient.DFN;
    … …  
    434440    uDxLst.Clear;
    435441    tCallV(tmplst, 'ORWDBA2 GETDUDC', [ProviderIEN, PatientIEN]);
    436     UBACore.UDxLst.Assign(tmplst);
     442    FastAssign(tmplst, UBACore.UDxLst);
    437443    tmplst.clear;
    438444end;
    … …  
    511517function  rpcIsPatientInsured(pPatientDFN: string):boolean;
    512518begin
    513    Result := (sCallV('ORWDBA7 ISWITCH',[pPatientDFN]) = '1');
     519   Result := (sCallV('ORWDBA7 ISWITCH',[pPatientDFN]) > '0');
    514520     
    515521end;
    … …  
    552558     on EListError do
    553559        begin
    554         {$ifdef debug}ShowMessage('EListError in UBACore.OrdersHaveDx()');{$endif}
     560        {$ifdef debug}Show508Message('EListError in UBACore.OrdersHaveDx()');{$endif}
    555561        raise;
    556562        end;
    … …  
    634640   UBAGlobals.MST := Copy(x,5,1);
    635641   UBAGlobals.HNC := Copy(x,6,1);
    636    UBAGlobals.CV :=  Copy(x,7,1);
     642   UBAGlobals.CV  := Copy(x,7,1);
     643   UBAGlobals.SHD := Copy(x,8,1);
    637644end;
    638645
    … …  
    693700             UBAGlobals.HNC := 'C';
    694701
     702       if UBAGlobals.SHD <> 'N' then
     703          if StrPos(PChar(strTFactors),PChar(SHIPBOARD_HAZARD_DEFENSE)) <> nil then
     704             UBAGlobals.SHD := 'C';
     705
    695706       //  Build Treatment Factor List to be passed to fOrdersSign form
    696        strFlagsOut := (SC + AO + IR + EC + MST + HNC + CV);
     707       strFlagsOut := (SC + AO + IR + EC + MST + HNC + CV + SHD);
    697708       UBAGlobals.BAFlagsOUT.Add(IDX + '^' + strFlagsOut );
    698709     end;
    … …  
    724735     on EListError do
    725736        begin
    726         {$ifdef debug}ShowMessage('EListError in UBACore.AddProviderPatientDaysDx()');{$endif}
     737        {$ifdef debug}Show508Message('EListError in UBACore.AddProviderPatientDaysDx()');{$endif}
    727738        raise;
    728739        end;
    … …  
    751762     on EListError do
    752763        begin
    753         {$ifdef debug}ShowMessage('EListError in UBACore.OrderRequiresSCEI()');{$endif}
     764        {$ifdef debug}Show508Message('EListError in UBACore.OrderRequiresSCEI()');{$endif}
    754765        raise;
    755766        end;
    … …  
    875886     on EListError do
    876887        begin
    877         {$ifdef debug}ShowMessage('EListError in UBACore.CompleteUnsignedBillingInfo()');{$endif}
     888        {$ifdef debug}Show508Message('EListError in UBACore.CompleteUnsignedBillingInfo()');{$endif}
    878889        raise;
    879890        end;
    … …  
    898909     on EListError do
    899910        begin
    900         {$ifdef debug}ShowMessage('EListError in UBACore.GetUnsignedOrderFlags()');{$endif}
     911        {$ifdef debug}Show508Message('EListError in UBACore.GetUnsignedOrderFlags()');{$endif}
    901912        raise;
    902913        end;
    … …  
    972983                 if piece(x,U,1) = COMBAT_VETERAN then
    973984                 begin
    974                   if piece(x,U,2) = '1' then
    975                      UBAGlobals.BAFactorsRec.FBAFactorCV := Piece(x,U,3)
    976                   else
    977                      UBAGlobals.BAFactorsRec.FBAFactorCV := (UBAGlobals.BAFactorsRec.FBAFactorCV + CRLF + Piece(x,U,3) );
    978                end;
    979          end;
     985                   if piece(x,U,2) = '1' then
     986                      UBAGlobals.BAFactorsRec.FBAFactorCV := Piece(x,U,3)
     987                   else
     988                      UBAGlobals.BAFactorsRec.FBAFactorCV := (UBAGlobals.BAFactorsRec.FBAFactorCV + CRLF + Piece(x,U,3) );
     989                 end
     990                 else
     991                    if piece(x,U,1) = SHIPBOARD_HAZARD_DEFENSE then
     992                    begin
     993                       if piece(x,U,2) = '1' then
     994                          UBAGlobals.BAFactorsRec.FBAFactorSHAD := Piece(x,U,3)
     995                      else
     996                         UBAGlobals.BAFactorsRec.FBAFactorSHAD := (UBAGlobals.BAFactorsRec.FBAFactorSHAD + CRLF + Piece(x,U,3) );
     997                  end;
     998            end;
    980999  except
    9811000     on EListError do
    9821001        begin
    983         {$ifdef debug}ShowMessage('EListError in UBACore.BuileTFHintRec()');{$endif}
     1002        {$ifdef debug}Show508Message('EListError in UBACore.BuileTFHintRec()');{$endif}
    9841003        raise;
    9851004        end;
    … …  
    10471066     on EListError do
    10481067        begin
    1049            {$ifdef debug}ShowMessage('EListError in UBACore.ClearSelectedORdersDiagnoses()');{$endif}
     1068           {$ifdef debug}Show508Message('EListError in UBACore.ClearSelectedORdersDiagnoses()');{$endif}
    10501069           raise;
    10511070        end;
    … …  
    11331152     on EListError do
    11341153        begin
    1135         {$ifdef debug}ShowMessage('EListError in UBACore.LoadConsultOrderRec()');{$endif}
     1154        {$ifdef debug}Show508Message('EListError in UBACore.LoadConsultOrderRec()');{$endif}
    11361155        raise;
    11371156        end;
    … …  
    11531172     with thisRetVal do
    11541173     begin
    1155         FBAOrderID := pOrderID;
     1174        FBAOrderID    := pOrderID;
    11561175        FBAEligible   := pEligible;
    11571176        FBATFactors   := pTFactors;
    … …  
    11661185  tmpOrderList: TStringList;
    11671186begin
    1168     orderList := TStringList.Create;
     1187    orderList    := TStringList.Create;
    11691188    tmpOrderList := TStringList.Create;
    11701189    orderList.Clear;
    … …  
    12411260    strTFactors   :=  pPLFactors;  // value selected from problem list
    12421261    strFlagsOut   := '';   // flags updated with selected values from problem list
    1243     x := strFlagsAsIs;
    1244     Result := '';
     1262    x             := strFlagsAsIs;
     1263    Result        := '';
    12451264
    12461265    UBAGlobals.SC  := Copy(x,1,1);
    … …  
    12501269    UBAGlobals.MST := Copy(x,5,1);
    12511270    UBAGlobals.HNC := Copy(x,6,1);
    1252     UBAGlobals.CV :=  Copy(x,7,1); // load factors to global vars;
     1271    UBAGlobals.CV  :=  Copy(x,7,1); // load factors to global vars;
     1272    UBAGlobals.SHD := Copy(x,8,1);
    12531273
    12541274  if UBAGlobals.SC  <> 'N' then
    … …  
    12841304          UBAGlobals.CV := 'C';
    12851305
     1306    if UBAGlobals.SHD <> 'N' then
     1307       if StrPos(PChar(strTFactors),PChar(SHIPBOARD_HAZARD_DEFENSE)) <> nil then
     1308          UBAGlobals.SHD := 'C';
     1309
    12861310     strFlagsOut := (UBAGlobals.SC + UBAGlobals.AO + UBAGlobals.IR +
    12871311                     UBAGlobals.EC + UBAGlobals.MST + UBAGlobals.HNC +
    1288                      UBAGlobals.CV);
     1312                     UBAGlobals.CV + UBAGlobals.SHD);
    12891313  Result := strFlagsOut;
    12901314end;
    … …  
    13851409   holdList := TStringList.Create;
    13861410   holdList.Clear;
    1387    holdList.Assign(UBAGlobals.BACopiedOrderFlags);
     1411   FastAssign(UBAGlobals.BACopiedOrderFlags, holdList);
    13881412   UBAGlobals.BACopiedOrderFlags.Clear;
    13891413   for i := 0 to holdList.Count-1 do
    … …  
    14121436      holdList := TStringList.Create;
    14131437      holdList.Clear;
    1414       holdList.Assign(UBAGlobals.BAConsultPLFlags);
     1438      FastAssign(UBAGlobals.BAConsultPLFlags, holdList);
    14151439      UBAGlobals.BAConsultPLFlags.Clear;
    14161440      for i := 0 to holdList.Count-1 do
Note: See TracChangeset for help on using the changeset viewer.