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

Upgrade to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r456 r829  
    3131   PtHNC:boolean;
    3232   PtMST:boolean;
     33   PtSHAD:boolean;
    3334   constructor Create(Alist:TStringList);
    3435   function GetGMPDFN(dfn:string;name:String):string;
    … …  
    111112     FBAFactorHNC       : string;
    112113     FBAFactorCV        : string;
     114     FBAFactorSHAD       : string;
    113115  end;
    114116
    … …  
    131133     CB_HNC             :string;
    132134     CB_CV              :string;
     135     CB_SHAD             :string;
    133136  end;
    134137
    … …  
    205208  TFactors          : string;
    206209  SC,AO,IR          : string;
    207   MST,HNC,CV,EC    : string;
     210  MST,HNC,CV,SHD,EC : string;
    208211  PLFactorsIndexes  : TStringList;
    209212  BAHoldPrimaryDx   : string;     //  used to verify primart dx has been changed.
    210213  BAPrimaryDxChanged: boolean;
    211 //  OrdersReqDxLst    : TStringList;  // List of selected Orders flagged collect DX Y/N
    212214  NonBillableOrderList : TStringList;  // contains reference to those selected orders that are non billable
    213215  OrderListSCEI    : TSTringList;  //   OrderID Exists SCEI are required.
    … …  
    220222  BAFWarningShown: boolean;       // flag used to determine if Inactive ICD Code has been shown.
    221223  BAPersonalDX:  boolean;
    222 //  BAConsultOrdersRequireDx: TStringList; //orderid  -  if orderid exists - consult order that requires dx...
    223224  BADeltedOrders: TStringList;
    224225
    225226implementation
    226227
    227 uses fBALocalDiagnoses, fOrdersSign, fReview, uCore, rCore, rPCE,uPCE, UBAConst, UBAMessages, UBACore;
     228uses fBALocalDiagnoses, fOrdersSign, fReview, uCore, rCore, rPCE,uPCE, UBAConst, UBAMessages, UBACore,
     229  VAUtils;
    228230
    229231procedure RemoveOrderFromDxList(thisOrderID: string);
    … …  
    390392        on EListError do
    391393           begin
    392            {$ifdef debug}ShowMessage('EListError in UBAGlobals.PutBADxListForOrder()');{$endif}
     394           {$ifdef debug}ShowMsg('EListError in UBAGlobals.PutBADxListForOrder()');{$endif}
    393395           raise;
    394396           end;
    … …  
    489491                           on EListError do
    490492                             begin
    491                               {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_ORDERS_SIGN');{$endif}
     493                              {$ifdef debug}ShowMsg('EListError in UBAGlobals.AllSelectedDxBlank() - F_ORDERS_SIGN');{$endif}
    492494                              raise;
    493495                             end;
    … …  
    506508                           on EListError do
    507509                             begin
    508                               {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_REVIEW');{$endif}
     510                              {$ifdef debug}ShowMsg('EListError in UBAGlobals.AllSelectedDxBlank() - F_REVIEW');{$endif}
    509511                              raise;
    510512                             end;
    … …  
    534536      on EListError do
    535537        begin
    536          {$ifdef debug}ShowMessage('EListError in UBAGlobals.GetDxNodeIndex()');{$endif}
     538         {$ifdef debug}ShowMsg('EListError in UBAGlobals.GetDxNodeIndex()');{$endif}
    537539         raise;
    538540        end;
    … …  
    565567      on EListError do
    566568        begin
    567          {$ifdef debug}ShowMessage('EListError in UBAGlobals.DiagnosesMatch()');{$endif}
     569         {$ifdef debug}ShowMsg('EListError in UBAGlobals.DiagnosesMatch()');{$endif}
    568570         raise;
    569571        end;
    … …  
    588590                          on EListError do
    589591                             begin
    590                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_ORDERS_SIGN');{$endif}
     592                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CountSelectedOrders() - F_ORDERS_SIGN');{$endif}
    591593                             raise;
    592594                             end;
    … …  
    601603                          on EListError do
    602604                             begin
    603                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_REVIEW');{$endif}
     605                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CountSelectedOrders() - F_REVIEW');{$endif}
    604606                             raise;
    605607                             end;
    … …  
    643645                          on EListError do
    644646                             begin
    645                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
     647                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
    646648                             raise;
    647649                             end;
    … …  
    659661                          on EListError do
    660662                             begin
    661                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
     663                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
    662664                             raise;
    663665                             end;
    … …  
    704706                          on EListError do
    705707                             begin
    706                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
     708                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
    707709                             raise;
    708710                             end;
    … …  
    736738                          on EListError do
    737739                             begin
    738                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
     740                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
    739741                             raise;
    740742                             end;
    … …  
    858860              on EListError do
    859861                 begin
    860                  {$ifdef debug}ShowMessage('EListError in UBAGlobals.SetBADxListForOrder()');{$endif}
     862                 {$ifdef debug}ShowMsg('EListError in UBAGlobals.SetBADxListForOrder()');{$endif}
    861863                 raise;
    862864                 end;
    … …  
    890892        on EListError do
    891893           begin
    892            {$ifdef debug}ShowMessage('EListError in UBAGlobals.SecondaryDxFull()');{$endif}
     894           {$ifdef debug}ShowMsg('EListError in UBAGlobals.SecondaryDxFull()');{$endif}
    893895           raise;
    894896           end;
    … …  
    923925     on EListError do
    924926        begin
    925         {$ifdef debug}ShowMessage('EListError in UBAGlobals.AddSecondaryDx()');{$endif}
     927        {$ifdef debug}ShowMsg('EListError in UBAGlobals.AddSecondaryDx()');{$endif}
    926928        raise;
    927929        end;
    … …  
    10681070      7: PtHNC              := (AList[i] = '1');
    10691071      8: PtMST              := (AList[i] = '1');
     1072      9: PtSHAD              := (AList[i] = '1');
    10701073    end;
    10711074end;
    … …  
    10781081procedure TBAPLPt.LoadPatientParams(AList:TstringList);
    10791082begin
    1080   AList.Assign(rpcInitPt(Patient.DFN));
     1083  FastAssign(rpcInitPt(Patient.DFN), AList);
    10811084  BAPLPt := TBAPLPt.create(Alist);
    10821085end;
    … …  
    11111114        on EListError do
    11121115           begin
    1113            {$ifdef debug}ShowMessage('EListError in UBAGlobals.tempDxNodeExists()');{$endif}
     1116           {$ifdef debug}ShowMsg('EListError in UBAGlobals.tempDxNodeExists()');{$endif}
    11141117           raise;
    11151118           end;
    … …  
    11591162  BANurseConsultOrders := TStringList.Create;
    11601163  BADeltedOrders       := TStringList.Create;
    1161  // BAConsultOrdersRequireDx := TStringList.Create;
    11621164  BAConsultDxList.Clear;
    11631165  NonBillableOrderList.Clear;
    … …  
    11751177  BANurseConsultOrders.Clear;
    11761178  BADeltedOrders.Clear;
    1177   //BAConsultOrdersRequireDx.Clear;
    1178  
     1179
    11791180end.
    11801181
Note: See TracChangeset for help on using the changeset viewer.