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

Uploading from OR_30_258

Location:
cprs/branches/foia-cprs/CPRS-Chart/Encounter
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.dfm

    r459 r460  
    11inherited frmDiagnoses: TfrmDiagnoses
    2   Left = 306
    3   Top = 183
     2  Left = 304
     3  Top = 169
    44  Caption = 'Encounter Diagnoses'
    55  PixelsPerInch = 96
    … …  
    7676      inherited lbSection: TORListBox
    7777        Tag = 20
    78         Style = lbOwnerDrawFixed
    7978        TabOrder = 0
    80         OnDrawItem = lbSectionDrawItem
    8179      end
    8280      inherited btnOther: TButton

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fDiagnoses.pas

    r459 r460  
    218218var
    219219  i: integer;
    220   dxString: string;
    221220  dxCode, dxName: string;
    222221  ADiagnosis: TPCEItem;
    223222begin
    224223   inherited;
    225   ADiagnosis := TPCEItem.Create;
    226224  UBAGlobals.BAPCEDiagList.Clear;
    227225  with lbGrid do for i := 0 to Items.Count - 1 do

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm

    r459 r460  
    11inherited frmEncVitals: TfrmEncVitals
    2   Left = 400
    3   Top = 227
     2  Left = 353
     3  Top = 210
    44  Caption = 'Vitals'
    55  KeyPreview = True
    … …  
    88  OnKeyDown = FormKeyDown
    99  OnResize = FormResize
    10   OnShow = FormShow
    1110  PixelsPerInch = 96
    1211  TextHeight = 13
     12  object lvVitals: TCaptionListView [0]
     13    Left = 0
     14    Top = 0
     15    Width = 624
     16    Height = 368
     17    Hint = 'To sort, click on column headers|'
     18    Align = alClient
     19    Columns = <>
     20    Constraints.MinHeight = 50
     21    HideSelection = False
     22    MultiSelect = True
     23    ReadOnly = True
     24    RowSelect = True
     25    ParentShowHint = False
     26    ShowHint = True
     27    TabOrder = 1
     28    ViewStyle = vsReport
     29  end
     30  object pnlBottom: TPanel [1]
     31    Left = 0
     32    Top = 368
     33    Width = 624
     34    Height = 32
     35    Align = alBottom
     36    BevelOuter = bvNone
     37    TabOrder = 5
     38  end
    1339  inherited btnOK: TBitBtn
    1440    Left = 444
    1541    Top = 377
    16     TabOrder = 1
     42    TabOrder = 3
    1743  end
    1844  inherited btnCancel: TBitBtn
    1945    Left = 524
    2046    Top = 377
    21     TabOrder = 2
     47    TabOrder = 4
    2248  end
    2349  object pnlmain: TPanel
    … …  
    2753    Height = 217
    2854    TabOrder = 0
     55    Visible = False
    2956    object lblVitPointer: TOROffsetLabel
    3057      Left = 506
    … …  
    383410      ListItemsOnly = True
    384411      LongList = False
     412      LookupPiece = 0
    385413      MaxLength = 0
    386414      Pieces = '1,2'
    … …  
    390418      TabStop = True
    391419      OnEnter = SetVitPointer
     420      CharsNeedMatch = 1
    392421    end
    393422    object txtMeasPulse: TCaptionEdit
    … …  
    414443    end
    415444  end
     445  object btnEnterVitals: TButton
     446    Left = 8
     447    Top = 377
     448    Width = 75
     449    Height = 21
     450    Caption = 'Enter Vitals'
     451    TabOrder = 2
     452    OnClick = btnEnterVitalsClick
     453  end
    416454end

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.pas

    r459 r460  
    66  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    77  fPCEBase, ORDtTm, StdCtrls, ORCtrls, ExtCtrls, Buttons, fAutoSz, ORFn,
    8   rvitals, ComCtrls;
     8  rvitals, ComCtrls, ORNet, uVitals
     9  , TRPCB // Vitals Lite 2004-05-21 ===========================================
     10  ;
     11{== Vitals Lite 2004-05-21 ===================================================}
     12type
     13  TGMV_GetInputPanel = function(
     14    var anApp: TApplication;
     15    aB: TRPCBroker;
     16    aP,         // Patient DFN
     17    aL,         // Hospitals IEN
     18    aSig,       // Application signature
     19    aTemplate   // Vitals Input template
     20        : String;
     21    aNow        // Input Date/Time
     22        :TDateTime):TCustomForm;
     23{== Vitals Lite 2004-05-21 ===================================================}
    924
    1025type
    … …  
    4762    txtMeasPulse: TCaptionEdit;
    4863    txtMeasHt: TCaptionEdit;
     64    pnlBottom: TPanel;
     65    btnEnterVitals: TButton;
     66    lvVitals: TCaptionListView;
    4967    procedure SetVitPointer(Sender: TObject);
    5068    procedure txtMeasBPExit(Sender: TObject);
    … …  
    7189    procedure FormKeyDown(Sender: TObject; var Key: Word;
    7290      Shift: TShiftState);
     91    procedure btnEnterVitalsClick(Sender: TObject); //vitals lite
    7392  private
    7493    FDataLoaded: boolean;
    … …  
    82101    procedure ChangeFocus(Control: TWinControl);
    83102    procedure ClearData;
     103    procedure LoadVitalView(VitalsList : TStringList); //Vitals Lite
     104    procedure LoadVitalsList;
    84105  public
    85106    function OK2SaveVitals: boolean;
    … …  
    97118
    98119uses UCore, rCore, rPCE, fPCELex, fPCEOther, fVitals,fVisit, fFrame, fEncnt,
    99   uVitals, fEncounterFrame;
     120     fEncounterFrame, uInit
     121  //   , fGMV_InputTemp // Vitals Lite 2004-05-21
     122     ;
    100123
    101124const
    … …  
    373396end;
    374397
     398
    375399procedure TfrmEncVitals.FormCreate(Sender: TObject);
    376 
    377 begin
     400begin
     401
    378402  inherited;
    379403  FTabName := CT_VitNm;
    … …  
    389413
    390414begin
    391   inherited;
    392415  //uVisitType.Free;
    393416  uVitalOld.Free;
    394417  uVitalNew.free;
     418
     419{== Vitals Lite 2004-05-21 ===================================================}
     420  FreeLibrary(VitalsDLLHandle);
     421{== Vitals Lite 2004-05-21 ===================================================}
     422  inherited;
    395423end;
    396424
    … …  
    412440
    413441procedure TfrmEncVitals.FormShow(Sender: TObject);
    414 begin
    415   inherited;
     442var
     443  GMV_LibName: String;
     444begin
     445  inherited;
     446  //Begin Vitals Lite
     447  {Visit is Assumed to Be selected when Opening Encounter Dialog}
     448  GMV_LibName :='GMV_VitalsViewEnter.dll';
     449  GMV_LibName := GetProgramFilesPath + SHARE_DIR + GMV_LibName;
     450  VitalsDLLHandle := LoadLibrary(PChar(GMV_LibName));
     451  if VitalsDLLHandle = 0 then // No Handle found
     452    MessageDLG('Can''t find library "'+GMV_LibName+'".',mtError,[mbok],0)
     453  else
     454    LoadVitalsList;
     455  //End Vitals Lite
    416456//  frmEncVitals.caption := 'Vital entry for - '+ patient.name; {RAB 6/15/98}
    417457  FormActivate(Sender);
    … …  
    540580end;
    541581
     582//Begin Vitals Lite
     583procedure TfrmEncVitals.LoadVitalView(VitalsList: TStringList);
     584var
     585  i : integer;
     586  curCol : TListColumn;
     587  curItem : TListItem;
     588  HeadingList,tmpList : TStringList;
     589begin
     590  HeadingList := TStringList.Create;
     591  tmpList := TStringList.Create;
     592  lvVitals.ShowColumnHeaders := false;                //CQ: 10069 - the column display becomes squished.
     593  lvVitals.Items.Clear;
     594  lvVitals.Columns.Clear;
     595  PiecesToList(VitalsList[0],U,HeadingList);
     596  for i := 0 to HeadingList.Count-1 do
     597  begin
     598    curCol := lvVitals.Columns.Add;
     599    curCol.Caption := HeadingList[i];
     600    curCol.AutoSize := true;
     601  end;
     602  for i := 1 to VitalsList.Count-1 do
     603  begin
     604    curItem := lvVitals.Items.Add;
     605    PiecesToList(VitalsList[i],U,tmpList);
     606    curItem.Caption := tmpList[0];
     607    tmpList.Delete(0);
     608    curItem.SubItems.Assign(tmpList);
     609  end;
     610  lvVitals.ShowColumnHeaders := true;                 //CQ: 10069 - the column display becomes squished.
     611  HeadingList.Free;
     612  tmpList.Free;
     613end;
     614
     615procedure TfrmEncVitals.btnEnterVitalsClick(Sender: TObject);
     616var
     617  VLPtVitals : TGMV_VitalsEnterDLG;
     618  GMV_FName : String;
     619begin
     620  inherited;
     621  if VitalsDLLHandle = 0 then Exit;//The DLL was initialized on Create, but just in case....
     622  GMV_FName := 'GMV_VitalsEnterDLG';
     623  @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
     624  if assigned(VLPtVitals) then
     625  begin
     626    VLPtVitals(
     627      RPCBrokerV,
     628      Patient.DFN,
     629      FloatToStr(uEncPCEData.Location),
     630      GMV_DEFAULT_TEMPLATE,
     631      GMV_APP_SIGNATURE,
     632      FMDateTimeToDateTime(uEncPCEData.DateTime),
     633      Patient.Name,
     634      frmFrame.lblPtSSN.Caption + '    ' + frmFrame.lblPtAge.Caption
     635    );
     636  end
     637  else
     638    MessageDLG('Can not find function "'+GMV_FName+'".',mtError,[mbok],0);
     639  @VLPtVitals := nil;
     640  LoadVitalsList;
     641end;
     642
     643procedure TfrmEncVitals.LoadVitalsList;
     644var
     645  VitalsList : TStringList;
     646  VLPtVitals : TGMV_LatestVitalsList;
     647  GMV_FName : String;
     648begin
     649  if VitalsDLLHandle = 0 then Exit;//The DLL was initialized on Create, but just in case....
     650  GMV_FName := 'GMV_LatestVitalsList';
     651  @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
     652  if assigned(VLPtVitals) then
     653  begin
     654    frmFrame.VitalsDLLActive := True;  // need this flag for CCOW (RV)
     655    VitalsList := VLPtVitals(RPCBrokerV,Patient.DFN,U,false);
     656    if assigned(VitalsList) then
     657      LoadVitalView(VitalsList);
     658  end
     659  else
     660    MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);
     661  @VLPtVitals := nil;
     662  frmFrame.VitalsDLLActive := False;  // need this flag for CCOW (RV)
     663end;
     664//End Vitals Lite
     665
    542666end.

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm

    r459 r460  
    11object frmEncounterFrame: TfrmEncounterFrame
    2   Left = 366
    3   Top = 181
    4   Width = 612
     2  Left = 290
     3  Top = 108
     4  Width = 640
    55  Height = 451
    66  Caption = 'Encounter Frame'
    … …  
    1616  Position = poScreenCenter
    1717  OnCanResize = FormCanResize
     18  OnClose = FormClose
    1819  OnCloseQuery = FormCloseQuery
    1920  OnCreate = FormCreate
    … …  
    2627    Left = 0
    2728    Top = 0
    28     Width = 604
     29    Width = 632
    2930    Height = 2
    3031    Align = alTop
    … …  
    3233  object StatusBar1: TStatusBar
    3334    Left = 0
    34     Top = 424
    35     Width = 604
     35    Top = 417
     36    Width = 632
    3637    Height = 0
    3738    Panels = <>
    … …  
    4142    Left = 0
    4243    Top = 24
    43     Width = 604
    44     Height = 400
     44    Width = 632
     45    Height = 393
    4546    Align = alClient
    4647    BevelOuter = bvNone
    … …  
    5253    ParentFont = False
    5354    TabOrder = 1
    54     TabStop = True
    5555  end
    5656  object TabControl: TTabControl
    5757    Left = 0
    5858    Top = 2
    59     Width = 604
     59    Width = 632
    6060    Height = 22
    6161    Align = alTop

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas

    r459 r460  
    7575    procedure FormKeyDown(Sender: TObject; var Key: Word;
    7676      Shift: TShiftState);
     77    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    7778    procedure FormCanResize(Sender: TObject; var NewWidth,
    7879      NewHeight: Integer; var Resize: Boolean);
    … …  
    123124  uCore,
    124125  fGAF, uConst,
    125   rCore, fPCEProvider;
     126  rCore, fPCEProvider, rMisc;
    126127
    127128{$R *.DFM}
    … …  
    397398    frmEncounterFrame.CreateChildForms(frmEncounterFrame, PCEData.Location);
    398399    ResizeAnchoredFormToFont(frmEncounterFrame);
     400    SetFormPosition(frmEncounterFrame);
    399401
    400402    with frmEncounterFrame do
    … …  
    714716    if FormListContains(CT_ImmNm) then
    715717      SetImmunizations(frmImmunizations.lbGrid.Items);
    716     if FormListContains(CT_ImmNm) then
     718    if FormListContains(CT_SkinNm) then
    717719      SetSkinTests(frmSkinTests.lbGrid.Items);
    718720    if FormListContains(CT_PedNm) then
    719721      SetPatientEds(frmPatientEd.lbGrid.Items);
    720     if FormListContains(CT_ImmNm) then
     722    if FormListContains(CT_HlthNm) then
    721723      SetHealthFactors(frmHealthFactors.lbGrid.Items);
    722     if FormListContains(CT_ImmNm) then
     724    if FormListContains(CT_XamNm) then
    723725      SetExams(frmExams.lbGrid.Items);
    724726  end;
    … …  
    817819end;
    818820
    819 procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
     821procedure TfrmEncounterFrame.FormClose(Sender: TObject;
     822  var Action: TCloseAction);
     823begin
     824  SaveUserBounds(Self);
     825end;
     826
     827procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth,
     828  NewHeight: Integer; var Resize: Boolean);
    820829begin
    821830  //CQ4740

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fHealthFactor.dfm

    r459 r460  
    11inherited frmHealthFactors: TfrmHealthFactors
    2   Left = 434
    3   Top = 354
     2  Left = 374
     3  Top = 205
    44  Caption = 'Health Factor page'
    55  PixelsPerInch = 96
    … …  
    4646  end
    4747  inherited edtComment: TCaptionEdit
     48    MaxLength = 245
    4849    TabOrder = 3
    4950  end
    … …  
    9091    ListItemsOnly = False
    9192    LongList = False
     93    LookupPiece = 0
    9294    MaxLength = 0
    9395    Pieces = '2'
    … …  
    9698    TabOrder = 4
    9799    OnChange = cboHealthLevelChange
     100    CharsNeedMatch = 1
    98101  end
    99102end

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCELex.dfm

    r459 r460  
    11inherited frmPCELex: TfrmPCELex
    2   Left = 386
    3   Top = 204
     2  Left = 639
     3  Top = 480
    44  BorderIcons = []
    55  BorderStyle = bsDialog

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm

    r459 r460  
    7171    OnChange = cboPrimaryChange
    7272    OnNeedData = cboPrimaryNeedData
     73    CharsNeedMatch = 1
    7374  end
    7475  object btnYes: TButton

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/rPCE.pas

    r459 r460  
    150150function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean;
    151151function IsCancelOrNoShow(ANote: integer): boolean;
     152function IsNonCountClinic(ALocation: integer): boolean;
    152153
    153154// HNC Flag
    … …  
    173174  uVTypeForLoc:   TStringList;
    174175  uProblems:      TStringList;
    175  
    176176  uModifiers:     TORStringList = nil;
    177177  uGAFOK:         boolean;
    … …  
    14381438end;
    14391439
     1440function IsNonCountClinic(ALocation: integer): boolean;
     1441begin
     1442  Result := (sCallV('ORWPCE1 NONCOUNT', [ALocation]) = '1');
     1443end;
     1444
    14401445function DefaultProvider(ALocation: integer; AUser: Int64; ADate: TFMDateTime;
    14411446                                             ANoteIEN: integer): string;

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas

    r459 r460  
    13751375  Result := inherited DelimitedStr;
    13761376  if Provider > 0 then tmpProv := IntToStr(Provider) else tmpProv := '';
    1377   //Result := 'CPT' + Result + U + IntToStr(Quantity) + U + IntToStr(Provider) +
    13781377  Result := 'CPT' + Result + U + IntToStr(Quantity) + U + tmpProv
    1379   //Result := 'CPT' + Result + U + IntToStr(Quantity) + U +
    1380   + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U;
     1378             + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U;
     1379  if Length(Result) > 250 then SetPiece(Result, U, 4, '');
    13811380end;
    13821381
    … …  
    15541553    BOOLCHAR[AddProb] + U + U + U;
    15551554  if(SaveComment) then Result := Result + IntToStr(UNxtCommSeqNum);
     1555  if Length(Result) > 250 then SetPiece(Result, U, 4, '');
    15561556end;
    15571557
    … …  
    29882988begin
    29892989  if not CanEditPCE(Self) then
     2990  begin
     2991    Result := TRUE;
     2992    exit;
     2993  end;
     2994  if IsNonCountClinic(FEncLocation) then
    29902995  begin
    29912996    Result := TRUE;
Note: See TracChangeset for help on using the changeset viewer.