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

Upgrade to version 27

Location:
cprs/trunk/CPRS-Chart/BA
Files:
7 edited

Legend:

Unmodified
Added
Removed

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

    r456 r829  
    3030  MILITARY_SEXUAL_TRAUMA  = 'MST';
    3131  COMBAT_VETERAN          = 'CV';
     32  SHIPBOARD_HAZARD_DEFENSE= 'SHD';
    3233
    3334  MAX_DX = 4;

  • 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

  • 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

  • cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.dfm

    r456 r829  
    1 object frmBALocalDiagnoses: TfrmBALocalDiagnoses
    2   Left = 192
    3   Top = 61
    4   Width = 620
    5   Height = 544
     1inherited frmBALocalDiagnoses: TfrmBALocalDiagnoses
     2  Left = 272
     3  Top = 142
    64  Caption = 'Assign Diagnoses to Order(s)'
    7   Color = clBtnFace
    8   Font.Charset = DEFAULT_CHARSET
    9   Font.Color = clWindowText
    10   Font.Height = -11
    11   Font.Name = 'MS Sans Serif'
    12   Font.Style = []
    13   KeyPreview = True
     5  ClientHeight = 517
     6  ClientWidth = 612
    147  OldCreateOrder = False
    158  Position = poScreenCenter
    … …  
    1710  OnActivate = FormActivate
    1811  OnCreate = FormCreate
    19   OnDestroy = FormDestroy
     12  OnKeyPress = FormKeyPress
    2013  OnShow = FormShow
     14  ExplicitWidth = 620
     15  ExplicitHeight = 551
    2116  PixelsPerInch = 96
    2217  TextHeight = 13
    23   object pnlTop: TPanel
     18  object pnlTop: TPanel [0]
    2419    Left = 0
    2520    Top = 0
    … …  
    3328      96)
    3429    object lbOrders: TListBox
    35       Left = 7
     30      Left = 8
    3631      Top = 25
    37       Width = 599
     32      Width = 602
    3833      Height = 69
    3934      Anchors = [akLeft, akTop, akRight, akBottom]
    4035      IntegralHeight = True
    4136      ItemHeight = 13
    42       TabOrder = 2
     37      TabOrder = 1
    4338      OnMouseMove = lbOrdersMouseMove
    4439    end
    45     object ORStaticText1: TORStaticText
    46       Left = 216
     40    object lblPatientName: TStaticText
     41      Left = 8
    4742      Top = 8
    48       Width = 169
    49       Height = 14
    50       AutoSize = False
    51       Caption = 'Selected Orders'
    52       TabOrder = 1
    53       TabStop = True
    54       OnEnter = ORStaticText1Enter
    55       OnExit = ORStaticText1Exit
    56     end
    57     object lblPatientName: TStaticText
    58       Left = 11
    59       Top = 9
    6043      Width = 76
    6144      Height = 17
    … …  
    6851      ParentFont = False
    6952      TabOrder = 0
    70       TabStop = True
    71     end
    72   end
    73   object pnlMain: TPanel
     53    end
     54  end
     55  object pnlMain: TPanel [1]
    7456    Left = 0
    7557    Top = 96
    … …  
    7860    Align = alClient
    7961    TabOrder = 1
     62    object lblDiagSect: TLabel
     63      Left = 9
     64      Top = 1
     65      Width = 241
     66      Height = 17
     67      AutoSize = False
     68      Caption = 'Diagnosis Section'
     69    end
     70    object lblDiagCodes: TLabel
     71      Left = 253
     72      Top = 1
     73      Width = 353
     74      Height = 17
     75      AutoSize = False
     76      Caption = 'Diagnosis Codes'
     77    end
    8078    object lbSections: TORListBox
    8179      Left = 9
    82       Top = 16
     80      Top = 14
    8381      Width = 238
    84       Height = 201
    85       Style = lbOwnerDrawVariable
     82      Height = 199
    8683      IntegralHeight = True
    8784      ItemHeight = 13
    … …  
    9592      LongList = False
    9693      Pieces = '3'
    97       CheckEntireLine = True
    9894    end
    9995    object btnOther: TButton
    … …  
    107103    end
    108104    object lbDiagnosis: TORListBox
    109       Left = 248
     105      Left = 253
    110106      Top = 16
    111107      Width = 353
    … …  
    122118      Pieces = '1,2,3'
    123119    end
    124     object ORStaticText2: TORStaticText
    125       Left = 8
    126       Top = 1
    127       Width = 241
    128       Height = 17
    129       AutoSize = False
    130       BevelKind = bkFlat
    131       Caption = 'Diagnosis Section'
    132       TabOrder = 0
    133       TabStop = True
    134       OnEnter = ORStaticText1Enter
    135       OnExit = ORStaticText1Exit
    136     end
    137     object ORStaticText3: TORStaticText
    138       Left = 248
    139       Top = 1
    140       Width = 353
    141       Height = 17
    142       AutoSize = False
    143       BevelKind = bkFlat
    144       Caption = 'Diagnosis Codes'
    145       TabOrder = 3
    146       TabStop = True
    147       OnEnter = ORStaticText1Enter
    148       OnExit = ORStaticText1Exit
    149     end
    150   end
    151   object pnlBottom: TORAutoPanel
     120  end
     121  object pnlBottom: TORAutoPanel [2]
    152122    Left = 0
    153123    Top = 355
    … …  
    159129      612
    160130      162)
    161     object lvDxGrid: TListView
    162       Left = 12
    163       Top = 19
    164       Width = 445
    165       Height = 85
    166       Color = clInfoBk
    167       Columns = <
    168         item
    169           Caption = 'Add To PL/PD'
    170           Width = 85
    171         end
    172         item
    173           Caption = 'Primary'
    174           MinWidth = 65
    175           Width = 65
    176         end
    177         item
    178           Caption = 'Diagnosis for Selected Orders'
    179           MinWidth = 275
    180           Width = 290
    181         end>
    182       Ctl3D = False
    183       HideSelection = False
    184       MultiSelect = True
    185       ReadOnly = True
    186       RowSelect = True
    187       TabOrder = 1
    188       ViewStyle = vsReport
    189       OnClick = lvDxGridClick
    190       OnKeyDown = lvDxGridKeyDown
    191       OnKeyUp = lvDxGridKeyUp
    192     end
    193131    object cbAddToPDList: TCheckBox
    194132      Left = 459
    … …  
    197135      Height = 17
    198136      Caption = 'Add to Personal Dx List'
    199       TabOrder = 3
     137      TabOrder = 2
    200138      OnClick = cbAddToPDListClick
    201139    end
    … …  
    207145      Anchors = [akLeft, akTop, akRight, akBottom]
    208146      Caption = 'Add To Problem List'
    209       TabOrder = 2
     147      TabOrder = 0
    210148      OnClick = cbAddToPLClick
    211149    end
    … …  
    216154      Height = 19
    217155      Caption = '&Primary'
    218       TabOrder = 4
     156      TabOrder = 3
    219157      OnClick = btnPrimaryClick
    220158    end
    … …  
    225163      Height = 19
    226164      Caption = '&Remove'
    227       TabOrder = 5
     165      TabOrder = 4
    228166      OnClick = btnRemoveClick
    229167    end
    … …  
    234172      Height = 18
    235173      Caption = '&Select All'
    236       TabOrder = 6
     174      TabOrder = 5
    237175      OnClick = btnSelectAllClick
    238176    end
    … …  
    243181      Height = 21
    244182      Caption = '&OK'
    245       TabOrder = 7
     183      TabOrder = 6
    246184      OnClick = buOKClick
    247185    end
    … …  
    252190      Height = 21
    253191      Caption = '&Cancel'
    254       TabOrder = 8
     192      TabOrder = 7
    255193      OnClick = buCancelClick
    256194    end
    257     object ORStaticText4: TORStaticText
    258       Left = 14
    259       Top = 3
    260       Width = 219
    261       Height = 14
    262       AutoSize = False
     195    object gbProvDiag: TGroupBox
     196      Left = 8
     197      Top = 0
     198      Width = 449
     199      Height = 105
    263200      Caption = 'Provisional Diagnosis'
    264       TabOrder = 0
    265       TabStop = True
    266       OnEnter = ORStaticText1Enter
    267       OnExit = ORStaticText1Exit
    268     end
     201      TabOrder = 1
     202      object lvDxGrid: TListView
     203        Left = 2
     204        Top = 15
     205        Width = 445
     206        Height = 88
     207        Align = alClient
     208        Color = clInfoBk
     209        Columns = <
     210          item
     211            Caption = 'Add To PL/PD'
     212            Width = 85
     213          end
     214          item
     215            Caption = 'Primary'
     216            MinWidth = 65
     217            Width = 65
     218          end
     219          item
     220            Caption = 'Diagnosis for Selected Orders'
     221            MinWidth = 275
     222            Width = 290
     223          end>
     224        Ctl3D = False
     225        HideSelection = False
     226        MultiSelect = True
     227        ReadOnly = True
     228        RowSelect = True
     229        TabOrder = 0
     230        ViewStyle = vsReport
     231        OnClick = lvDxGridClick
     232        OnKeyDown = lvDxGridKeyDown
     233        OnKeyUp = lvDxGridKeyUp
     234      end
     235    end
     236  end
     237  inherited amgrMain: TVA508AccessibilityManager
     238    Data = (
     239      (
     240        'Component = pnlTop'
     241        'Status = stsDefault')
     242      (
     243        'Component = lbOrders'
     244        'Status = stsDefault')
     245      (
     246        'Component = lblPatientName'
     247        'Status = stsDefault')
     248      (
     249        'Component = pnlMain'
     250        'Status = stsDefault')
     251      (
     252        'Component = lbSections'
     253        'Label = lblDiagSect'
     254        'Status = stsOK')
     255      (
     256        'Component = btnOther'
     257        'Status = stsDefault')
     258      (
     259        'Component = lbDiagnosis'
     260        'Label = lblDiagCodes'
     261        'Status = stsOK')
     262      (
     263        'Component = pnlBottom'
     264        'Status = stsDefault')
     265      (
     266        'Component = cbAddToPDList'
     267        'Status = stsDefault')
     268      (
     269        'Component = cbAddToPL'
     270        'Status = stsDefault')
     271      (
     272        'Component = btnPrimary'
     273        'Status = stsDefault')
     274      (
     275        'Component = btnRemove'
     276        'Status = stsDefault')
     277      (
     278        'Component = btnSelectAll'
     279        'Status = stsDefault')
     280      (
     281        'Component = buOK'
     282        'Status = stsDefault')
     283      (
     284        'Component = buCancel'
     285        'Status = stsDefault')
     286      (
     287        'Component = gbProvDiag'
     288        'Status = stsDefault')
     289      (
     290        'Component = lvDxGrid'
     291        'Status = stsDefault')
     292      (
     293        'Component = frmBALocalDiagnoses'
     294        'Status = stsDefault'))
    269295  end
    270296end

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

    r456 r829  
    77  Dialogs, fAutoSz, StdCtrls, ORCtrls, ExtCtrls,fPCELex, uConsults, ORFn,
    88  rPCE,DBCtrls, DB, DBClient, uPCE, fEncounterFrame, ComCtrls, Grids, UBAGlobals,
    9   Buttons, Menus, UBACore, UCore;
     9  Buttons, Menus, UBACore, UCore, VA508AccessibilityManager;
    1010
    1111type
    … …  
    2323    lbSections: TORListBox;
    2424    pnlBottom: TORAutoPanel;
    25     lvDxGrid: TListView;
    2625    cbAddToPDList: TCheckBox;
    2726    cbAddToPL: TCheckBox;
    … …  
    3332    btnOther: TButton;
    3433    lbDiagnosis: TORListBox;
    35     ORStaticText1: TORStaticText;
    36     ORStaticText2: TORStaticText;
    37     ORStaticText3: TORStaticText;
    38     ORStaticText4: TORStaticText;
     34    lblDiagSect: TLabel;
     35    lblDiagCodes: TLabel;
    3936    lblPatientName: TStaticText;
     37    gbProvDiag: TGroupBox;
     38    lvDxGrid: TListView;
    4039    procedure buOKClick(Sender: TObject);
    4140    procedure buCancelClick(Sender: TObject);
    … …  
    6564    procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
    6665      Y: Integer);
    67     procedure ORStaticText1Enter(Sender: TObject);
    68     procedure ORStaticText1Exit(Sender: TObject);
    69     procedure ORStaticText3Enter(Sender: TObject);
    70     procedure ORStaticText3Exit(Sender: TObject);
     66    procedure FormKeyPress(Sender: TObject; var Key: Char);
    7167
    7268  private
    … …  
    105101    function  PersonalListDxFound(pDxCode:string):boolean;
    106102    procedure ReSetCheckBoxStatus(pDxCode:String);
     103    procedure DeleteSelectedDx;
     104    function  IsCtrlDown: boolean;
    107105
    108106  public
    … …  
    110108     procedure Enter(theCaller: smallint; pOrderIDList: TStringList);
    111109     procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string);
     110
    112111  end;
    113112
    … …  
    137136
    138137uses rCore, rODMeds, rODBase, rOrders, fRptBox, fODMedOIFA,
    139   uAccessibleStringGrid,ORNet, fProbs, fOrdersSign, UBAConst,
    140   UBAMessages, fReview, uSignItems, fODConsult, fFrame;
     138  ORNet, fProbs, fOrdersSign, UBAConst,
     139  UBAMessages, fReview, uSignItems, fODConsult, fFrame, VAUtils;
    141140
    142141var
    … …  
    176175end;
    177176
     177procedure TfrmBALocalDiagnoses.FormKeyPress(Sender: TObject; var Key: Char);
     178begin
     179  inherited;
     180   if frmBALocalDiagnoses.IsCtrlDown then
     181   begin
     182     if ( Key = #10 ) then
     183        frmBALocalDiagnoses.buOK.Click;
     184   end;
     185   
     186end;
     187
    178188procedure TfrmBALocalDiagnoses.ListDiagnosisSections(Dest: TStrings);
    179189{ return section names in format: ListIndex^SectionName (sections begin with '^') }
    … …  
    195205    ECFDiagnosis := TStringList.Create;
    196206    uProblems := TStringList.Create;
    197     lblPatientName.Caption := Patient.Name;
     207    lblPatientName.Caption := Patient.Name + ' Selected Orders';
    198208    DeselectGridItems;
    199209   
    … …  
    501511      begin
    502512         a :=  Piece(BADiagnosis[j], U, 2) + U + Piece(BADiagnosis[j], U, 1) + U + '        ' + Piece(BADiagnosis[j], U, 3) ;
    503          if a = '' then showmessage('found nothing');
     513         if a = '' then ShowMsg('found nothing');
    504514            lbDiagnosis.Items.Add(a);
    505515      end;
    … …  
    578588  inherited;
    579589  deleteDX := True;
    580   lvDxGrid.DeleteSelected;
     590  frmBALocalDiagnoses.DeleteSelectedDX;
    581591  ClearAndDisableCBoxes;
    582592  DeselectGridItems;
    583593  EnsurePrimary;
    584594  deleteDX := False;
    585                                 // if all dx's removed, clear out displaycode
     595  // if all dx's removed, clear out displaycode
    586596  if lvDxGrid.items.Count = 0 then FODConsult.displayDXCode := '';
    587597end;
    … …  
    627637    begin
    628638       DeselectGridItems;
    629        ShowMessage(BA_MAX_DX); //** max  4 diagnoses per order
     639       ShowMsg(BA_MAX_DX); //** max  4 diagnoses per order
    630640    end;
    631641end;
    … …  
    812822    NewList.Clear;
    813823    // ** Add Diagnosis to Problem List if flagged with 'Add' in First Col.
    814     with lvDxGrid do
     824    with frmBALocalDiagnoses.lvDxGrid do
    815825    begin
    816826       for i := 0 to Items.Count-1 do
    … …  
    861871   i : integer;
    862872   tempStr1,tempStr2, tempStr3: string;
    863    tempFactor1,x: string;
     873   tempFactor1: string;
    864874   tempStrList: TStringList;
    865875begin
    … …  
    877887   tempFactor1 := '';
    878888
    879    if lvDxGrid.Items.Count > 0 then
    880    with lvDxGrid do
     889   if frmBALocalDiagnoses.lvDxGrid.Items.Count > 0 then
     890   with frmBALocalDiagnoses.lvDxGrid do
    881891   begin
    882892      for i := 0 to Items.Count-1 do
    883893      begin
    884          x := lvDxGrid.Items[i].Subitems[0];
    885          x := lvDxGrid.Items[i].Subitems[1];
    886          x:= lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1];
     894     //    x := lvDxGrid.Items[i].Subitems[0];
     895     //    x := lvDxGrid.Items[i].Subitems[1];
     896     //    x:= lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1];
    887897         tempStrList.Add(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]);
    888898      end;
    … …  
    11211131      on EListError do
    11221132         begin
    1123          {$ifdef debug}ShowMessage('EListError in frmBALocalDiagnoses.ListSelectedOrders()');{$endif}
     1133         {$ifdef debug}Show508Message('EListError in frmBALocalDiagnoses.ListSelectedOrders()');{$endif}
    11241134         raise;
    11251135         end;
    … …  
    11481158      on EListError do
    11491159         begin
    1150          {$ifdef debug}ShowMessage('EListError in frmBALocalDiagnoses.AddDiagnosisToPersonalDiagnosesListClick()');{$endif}
     1160         {$ifdef debug}Show508Message('EListError in frmBALocalDiagnoses.AddDiagnosisToPersonalDiagnosesListClick()');{$endif}
    11511161         raise;
    11521162         end;
    … …  
    11561166       if UBACore.rpcAddToPersonalDxList(User.DUZ,selectedList) then
    11571167       begin
    1158           ShowMessage(UBAMessages.BA_PERSONAL_LIST_UPDATED);
     1168          ShowMsg(UBAMessages.BA_PERSONAL_LIST_UPDATED);
    11591169          LoadEncounterForm;
    11601170          Refresh;
    … …  
    11791189  if UBACore.rpcAddToPersonalDxList(User.DUZ,selectedList) then
    11801190  begin
    1181      ShowMessage(UBAMessages.BA_PERSONAL_LIST_UPDATED);
     1191     ShowMsg(UBAMessages.BA_PERSONAL_LIST_UPDATED);
    11821192     LoadEncounterForm;
    11831193     Refresh;
    … …  
    12671277  (Control as TListBox).Canvas.TextOut(Rect.Left+2, Rect.Top+1, (Control as
    12681278              TListBox).Items[Index]); {** display the text }
     1279
    12691280end;
    12701281
    … …  
    15261537end;
    15271538
    1528 procedure TfrmBALocalDiagnoses.ORStaticText1Enter(Sender: TObject);
    1529 begin
    1530   inherited;
    1531   (Sender as TORStaticText).Font.Style := [fsBold];
    1532 end;
    1533 
    1534 procedure TfrmBALocalDiagnoses.ORStaticText1Exit(Sender: TObject);
    1535 begin
    1536   inherited;
    1537   (Sender as TORStaticText).Font.Style := [];
    1538 end;
    1539 
    1540 procedure TfrmBALocalDiagnoses.ORStaticText3Enter(Sender: TObject);
    1541 begin
    1542   inherited;
    1543   (Sender as TORStaticText).Font.Style := [fsBold];
    1544 end;
    1545 
    1546 procedure TfrmBALocalDiagnoses.ORStaticText3Exit(Sender: TObject);
    1547 begin
    1548   inherited;
    1549   (Sender as TORStaticText).Font.Style := [];
    1550 end;
    1551 
    15521539procedure TfrmBALocalDiagnoses.ResetCheckBoxStatus(pDxCode:string);
    15531540begin
    … …  
    15561543 if  Not PersonalListDxFound(pDxCode) then
    15571544    cbAddToPDList.Enabled  := True;
    1558 
    1559 
    1560 end;
     1545end;
     1546
     1547procedure TfrmBALocalDiagnoses.DeleteSelectedDx;
     1548var
     1549  I: Integer;
     1550begin
     1551  frmBALocalDiagnoses.lvDxGrid.Items.BeginUpdate;
     1552  try
     1553    for I := frmBALocalDiagnoses.lvDxGrid.Items.Count - 1 downto 0 do
     1554      if  frmBALocalDiagnoses.lvDxGrid.Items[I].Selected then
     1555        frmBALocalDiagnoses.lvdxGrid.Items[I].delete;
     1556  finally
     1557    lvDxGrid.Items.EndUpdate;
     1558  end;
     1559
     1560end;
     1561
     1562function  TfrmBALocalDiagnoses.IsCtrlDown: boolean;
     1563var
     1564  State: TKeyboardState;
     1565begin { isCtrlDown }
     1566  GetKeyboardState(State);
     1567  Result := ((State[VK_CONTROL] and 128)<>0); // Ctrl-button
     1568end; { isCtrlDown }
     1569
     1570
    15611571
    15621572

  • cprs/trunk/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm

    r456 r829  
    22  Left = 231
    33  Top = 183
    4   Width = 747
    5   Height = 557
    64  Caption = 'Personal Diagnoses List'
     5  ClientHeight = 530
     6  ClientWidth = 739
    77  Constraints.MinHeight = 100
    88  Constraints.MinWidth = 200
    … …  
    1010  OnCreate = FormCreate
    1111  OnShow = FormShow
     12  ExplicitWidth = 747
     13  ExplicitHeight = 557
    1214  PixelsPerInch = 96
    1315  TextHeight = 13
    14   object Panel1: TPanel
     16  object Panel1: TPanel [0]
    1517    Left = 0
    1618    Top = 0
    … …  
    3436        Width = -3
    3537        Height = 463
    36         Cursor = crHSplit
    3738      end
    3839      object Splitter2: TSplitter
    … …  
    4142        Width = 7
    4243        Height = 463
    43         Cursor = crHSplit
    4444      end
    4545      object Splitter3: TSplitter
    … …  
    4848        Width = 1
    4949        Height = 463
    50         Cursor = crHSplit
    5150      end
    5251      object Splitter5: TSplitter
    … …  
    5554        Width = 2
    5655        Height = 463
    57         Cursor = crHSplit
    5856      end
    5957      object pnlBottom: TPanel
    … …  
    142140          Width = 168
    143141          Height = 17
    144           DragReorder = False
    145142          Sections = <
    146143            item
    … …  
    190187          Width = 201
    191188          Height = 17
    192           DragReorder = False
    193189          Sections = <
    194190            item
    … …  
    233229          Width = 257
    234230          Height = 17
    235           DragReorder = False
    236231          Sections = <
    237232            item
    … …  
    310305    end
    311306  end
     307  inherited amgrMain: TVA508AccessibilityManager
     308    Data = (
     309      (
     310        'Component = Panel1'
     311        'Status = stsDefault')
     312      (
     313        'Component = Panel2'
     314        'Status = stsDefault')
     315      (
     316        'Component = pnlBottom'
     317        'Status = stsDefault')
     318      (
     319        'Component = btnOther'
     320        'Status = stsDefault')
     321      (
     322        'Component = btnOK'
     323        'Status = stsDefault')
     324      (
     325        'Component = Button1'
     326        'Status = stsDefault')
     327      (
     328        'Component = Panel3'
     329        'Status = stsDefault')
     330      (
     331        'Component = lbSections'
     332        'Status = stsDefault')
     333      (
     334        'Component = hdrCntlDxSections'
     335        'Status = stsDefault')
     336      (
     337        'Component = Panel4'
     338        'Status = stsDefault')
     339      (
     340        'Component = lbDiagnosis'
     341        'Status = stsDefault')
     342      (
     343        'Component = hdrCntlDxAdd'
     344        'Status = stsDefault')
     345      (
     346        'Component = Panel5'
     347        'Status = stsDefault')
     348      (
     349        'Component = lbPersonalDx'
     350        'Status = stsDefault')
     351      (
     352        'Component = hdrCntlDx'
     353        'Status = stsDefault')
     354      (
     355        'Component = pnlTop'
     356        'Status = stsDefault')
     357      (
     358        'Component = StaticText3'
     359        'Status = stsDefault')
     360      (
     361        'Component = Panel7'
     362        'Status = stsDefault')
     363      (
     364        'Component = btnAdd'
     365        'Status = stsDefault')
     366      (
     367        'Component = btnDelete'
     368        'Status = stsDefault')
     369      (
     370        'Component = frmBAOptionsDiagnoses'
     371        'Status = stsDefault'))
     372  end
    312373end

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

    r456 r829  
    77  Dialogs, fAutoSz, StdCtrls, ORCtrls, ExtCtrls, ORFn, UCore, RCore, ORNet,
    88  UBAGlobals, fPCELex, rPCE, Buttons, UBACore, UBAMessages, UBAConst,
    9   ComCtrls;
     9  ComCtrls, VA508AccessibilityManager;
    1010
    1111type
Note: See TracChangeset for help on using the changeset viewer.