Changeset 829 for cprs/trunk/CPRS-Chart/BA/UBAGlobals.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/BA/UBAGlobals.pas (modified) (24 diffs)

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

@@ -31 +31 @@
    PtHNC:boolean;
    PtMST:boolean;
+   PtSHAD:boolean;
    constructor Create(Alist:TStringList);
    function GetGMPDFN(dfn:string;name:String):string;
@@ -111 +112 @@
      FBAFactorHNC       : string;
      FBAFactorCV        : string;
+     FBAFactorSHAD       : string;
   end;
 
@@ -131 +133 @@
      CB_HNC             :string;
      CB_CV              :string;
+     CB_SHAD             :string;
   end;
 
@@ -205 +208 @@
   TFactors          : string;
   SC,AO,IR          : string;
-  MST,HNC,CV,EC     : string;
+  MST,HNC,CV,SHD,EC : string;
   PLFactorsIndexes  : TStringList;
   BAHoldPrimaryDx   : string;     //  used to verify primart dx has been changed.
   BAPrimaryDxChanged: boolean;
-//  OrdersReqDxLst    : TStringList;  // List of selected Orders flagged collect DX Y/N
   NonBillableOrderList : TStringList;  // contains reference to those selected orders that are non billable
   OrderListSCEI    : TSTringList;  //   OrderID Exists SCEI are required.
@@ -220 +222 @@
   BAFWarningShown: boolean;       // flag used to determine if Inactive ICD Code has been shown.
   BAPersonalDX:  boolean;
-//  BAConsultOrdersRequireDx: TStringList; //orderid  -  if orderid exists - consult order that requires dx...
   BADeltedOrders: TStringList;
 
 implementation
 
-uses fBALocalDiagnoses, fOrdersSign, fReview, uCore, rCore, rPCE,uPCE, UBAConst, UBAMessages, UBACore;
+uses fBALocalDiagnoses, fOrdersSign, fReview, uCore, rCore, rPCE,uPCE, UBAConst, UBAMessages, UBACore,
+  VAUtils;
 
 procedure RemoveOrderFromDxList(thisOrderID: string);
@@ -390 +392 @@
         on EListError do
            begin
-           {$ifdef debug}ShowMessage('EListError in UBAGlobals.PutBADxListForOrder()');{$endif}
+           {$ifdef debug}ShowMsg('EListError in UBAGlobals.PutBADxListForOrder()');{$endif}
            raise;
            end;
@@ -489 +491 @@
                            on EListError do
                              begin
-                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_ORDERS_SIGN');{$endif}
+                              {$ifdef debug}ShowMsg('EListError in UBAGlobals.AllSelectedDxBlank() - F_ORDERS_SIGN');{$endif}
                               raise;
                              end;
@@ -506 +508 @@
                            on EListError do
                              begin
-                              {$ifdef debug}ShowMessage('EListError in UBAGlobals.AllSelectedDxBlank() - F_REVIEW');{$endif}
+                              {$ifdef debug}ShowMsg('EListError in UBAGlobals.AllSelectedDxBlank() - F_REVIEW');{$endif}
                               raise;
                              end;
@@ -534 +536 @@
       on EListError do
         begin
-         {$ifdef debug}ShowMessage('EListError in UBAGlobals.GetDxNodeIndex()');{$endif}
+         {$ifdef debug}ShowMsg('EListError in UBAGlobals.GetDxNodeIndex()');{$endif}
          raise;
         end;
@@ -565 +567 @@
       on EListError do
         begin
-         {$ifdef debug}ShowMessage('EListError in UBAGlobals.DiagnosesMatch()');{$endif}
+         {$ifdef debug}ShowMsg('EListError in UBAGlobals.DiagnosesMatch()');{$endif}
          raise;
         end;
@@ -588 +590 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_ORDERS_SIGN');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CountSelectedOrders() - F_ORDERS_SIGN');{$endif}
                              raise;
                              end;
@@ -601 +603 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CountSelectedOrders() - F_REVIEW');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CountSelectedOrders() - F_REVIEW');{$endif}
                              raise;
                              end;
@@ -643 +645 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
                              raise;
                              end;
@@ -659 +661 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
                              raise;
                              end;
@@ -704 +706 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_ORDERS_SIGN');{$endif}
                              raise;
                              end;
@@ -736 +738 @@
                           on EListError do
                              begin
-                             {$ifdef debug}ShowMessage('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
+                             {$ifdef debug}ShowMsg('EListError in UBAGlobals.CompareOrderDx() - F_REVIEW');{$endif}
                              raise;
                              end;
@@ -858 +860 @@
               on EListError do
                  begin
-                 {$ifdef debug}ShowMessage('EListError in UBAGlobals.SetBADxListForOrder()');{$endif}
+                 {$ifdef debug}ShowMsg('EListError in UBAGlobals.SetBADxListForOrder()');{$endif}
                  raise;
                  end;
@@ -890 +892 @@
         on EListError do
            begin
-           {$ifdef debug}ShowMessage('EListError in UBAGlobals.SecondaryDxFull()');{$endif}
+           {$ifdef debug}ShowMsg('EListError in UBAGlobals.SecondaryDxFull()');{$endif}
            raise;
            end;
@@ -923 +925 @@
      on EListError do
         begin
-        {$ifdef debug}ShowMessage('EListError in UBAGlobals.AddSecondaryDx()');{$endif}
+        {$ifdef debug}ShowMsg('EListError in UBAGlobals.AddSecondaryDx()');{$endif}
         raise;
         end;
@@ -1068 +1070 @@
       7: PtHNC              := (AList[i] = '1');
       8: PtMST              := (AList[i] = '1');
+      9: PtSHAD              := (AList[i] = '1');
     end;
 end;
@@ -1078 +1081 @@
 procedure TBAPLPt.LoadPatientParams(AList:TstringList);
 begin
-  AList.Assign(rpcInitPt(Patient.DFN));
+  FastAssign(rpcInitPt(Patient.DFN), AList);
   BAPLPt := TBAPLPt.create(Alist);
 end;
@@ -1111 +1114 @@
         on EListError do
            begin
-           {$ifdef debug}ShowMessage('EListError in UBAGlobals.tempDxNodeExists()');{$endif}
+           {$ifdef debug}ShowMsg('EListError in UBAGlobals.tempDxNodeExists()');{$endif}
            raise;
            end;
@@ -1159 +1162 @@
   BANurseConsultOrders := TStringList.Create;
   BADeltedOrders       := TStringList.Create;
- // BAConsultOrdersRequireDx := TStringList.Create;
   BAConsultDxList.Clear;
   NonBillableOrderList.Clear;
@@ -1175 +1177 @@
   BANurseConsultOrders.Clear;
   BADeltedOrders.Clear;
-  //BAConsultOrdersRequireDx.Clear;
- 
+
 end.