Summary Table
Categories |
Total Count |
PII |
19 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit fGMV_EnteredInError;
{
================================================================================
*
* Application: Vitals
* Revision: $Revision: 1 $ $Modtime: 12/20/07 12:43p $
* Developer:
PII
* Site: Hines OIFO
*
* Description: Utility for marking vitals in error.
*
* Notes:
*
================================================================================
* $Archive: /Vitals/5.0 (Version 5.0)/5.0.23 (Patch 23)/VITALS_5_0_23_8/Source/VITALSCOMMON/fGMV_EnteredInError.pas $
*
* $History: fGMV_EnteredInError.pas $
*
* ***************** Version 1 *****************
* User:
PII
Date: 8/12/09 Time: 8:29a
* Created in $/Vitals/5.0 (Version 5.0)/5.0.23 (Patch 23)/VITALS_5_0_23_8/Source/VITALSCOMMON
*
* ***************** Version 1 *****************
* User:
PII
Date: 3/09/09 Time: 3:38p
* Created in $/Vitals/5.0 (Version 5.0)/5.0.23 (Patch 23)/VITALS_5_0_23_6/Source/VITALSCOMMON
*
* ***************** Version 1 *****************
* User:
PII
Date: 1/13/09 Time: 1:26p
* Created in $/Vitals/5.0 (Version 5.0)/5.0.23 (Patch 23)/VITALS_5_0_23_4/Source/VITALSCOMMON
*
* ***************** Version 1 *****************
* User:
PII
Date: 5/14/07 Time: 10:29a
* Created in $/Vitals GUI 2007/Vitals-5-0-18/VITALSCOMMON
*
* ***************** Version 1 *****************
* User:
PII
Date: 5/16/06 Time: 5:43p
* Created in $/Vitals/VITALS-5-0-18/VitalsCommon
* GUI v. 5.0.18 updates the default vital type IENs with the local
* values.
*
* ***************** Version 1 *****************
* User:
PII
Date: 5/16/06 Time: 5:33p
* Created in $/Vitals/Vitals-5-0-18/VITALS-5-0-18/VitalsCommon
*
* ***************** Version 1 *****************
* User:
PII
Date: 5/24/05 Time: 3:33p
* Created in $/Vitals/Vitals GUI v 5.0.2.1 -5.0.3.1 - Patch GMVR-5-7 (CASMed, No CCOW) - Delphi 6/VitalsCommon
*
* ***************** Version 1 *****************
* User:
PII
Date: 4/16/04 Time: 4:17p
* Created in $/Vitals/Vitals GUI Version 5.0.3 (CCOW, CPRS, Delphi 7)/VITALSCOMMON
*
* ***************** Version 1 *****************
* User:
PII
Date: 1/26/04 Time: 1:08p
* Created in $/Vitals/Vitals GUI Version 5.0.3 (CCOW, Delphi7)/V5031-D7/VitalsUser
*
* ***************** Version 1 *****************
* User:
PII
Date: 10/29/03 Time: 4:15p
* Created in $/Vitals503/Vitals User
* Version 5.0.3
*
* ***************** Version 3 *****************
* User:
PII
Date: 5/22/03 Time: 10:16a
* Updated in $/Vitals GUI Version 5.0/VitalsUserNoCCOW
* Preparation to CCOW
* MessageDLG changed to MessageDLGS
*
* ***************** Version 2 *****************
* User:
PII
Date: 5/21/03 Time: 1:46p
* Updated in $/Vitals GUI Version 5.0/VitalsUserNoCCOW
* Version 5.0.1.5
*
* ***************** Version 1 *****************
* User:
PII
Date: 5/21/03 Time: 1:18p
* Created in $/Vitals GUI Version 5.0/VitalsUserNoCCOW
* Pre CCOW Version of Vitals User
*
* ***************** Version 5 *****************
* User:
PII
Date: 12/20/02 Time: 3:02p
* Updated in $/Vitals GUI Version 5.0/Vitals User
*
* ***************** Version 4 *****************
* User:
PII
Date: 10/11/02 Time: 6:21p
* Updated in $/Vitals GUI Version 5.0/Vitals User
* Version vT32_1
*
* ***************** Version 3 *****************
* User:
PII
Date: 6/20/02 Time: 9:33a
* Updated in $/Vitals GUI Version 5.0/Vitals User
* t27 Build
*
* ***************** Version 2 *****************
* User:
PII
Date: 6/06/02 Time: 11:14a
* Updated in $/Vitals GUI Version 5.0/Vitals User
* Roll-up to 5.0.0.27
*
* ***************** Version 1 *****************
* User:
PII
Date: 4/04/02 Time: 11:58a
* Created in $/Vitals GUI Version 5.0/Vitals User
*
*
================================================================================
}
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
ExtCtrls,
StdCtrls,
Buttons,
CheckLst,
Trpcb,
MFunStr,
uGMV_Common,
ComCtrls;
type
TfrmGMV_EnteredInError = class(TForm)
GroupBox1: TGroupBox;
rgReason: TRadioGroup;
dtpDate: TDateTimePicker;
pnlButtons: TPanel;
btnCancel: TButton;
btnOK: TButton;
lvVitals: TListView;
procedure DateChange(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure OkToProceed(Sender: TObject);
procedure ClearList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure lvVitalsChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
procedure FormResize(Sender: TObject);
private
FPatientIEN: string;
{ Private declarations }
public
{ Public declarations }
end;
procedure EnterVitalsInError(DFN: string);
implementation
{$R *.DFM}
procedure EnterVitalsInError(DFN: string);
begin
with TfrmGMV_EnteredInError.Create(Application) do
try
FPatientIEN := DFN;
dtpDate.Date := Now;
DateChange(nil);
ShowModal;
finally
free;
end;
end;
procedure TfrmGMV_EnteredInError.FormCreate(Sender: TObject);
begin
ClearList;
dtpDate.Date := Now;
end;
procedure TfrmGMV_EnteredInError.DateChange(Sender: TObject);
var
s: String;
dt: Double;
i: integer;
begin
ClearList;
dt := WindowsDateToFMDate(dtpDate.Date);
CallServer(
GMVBroker,
'GMV EXTRACT REC',
[FPatientIEN + '^' + FloatToStr(dt) + '^^' + FloatToStr(dt)],
nil, RetList);
if Piece(RetList[0], '^', 1) <> '0' then
for i := 0 to RetList.Count - 1 do
if Copy(RetList[i], 1, 1) <> ' ' then
with lvVitals.Items.Add do
begin
s := RetList[i];
Caption := Piece(Piece(RetList[i], '^', 2), ' ', 1);
// SubItems.Add(trim(Copy(RetList[i], Pos(' ', RetList[i]), 255)));
s := trim(Copy(RetList[i], Pos(' ', RetList[i]), 255));
{
s := piece(s,'_',1) + ' ' + piece(s,'_',2);
SubItems.Add(s);
}
SubItems.Add(piece(s,'_',1));
SubItems.Add(piece(s,'_',2));
Data := TGMV_FileEntry.CreateFromRPC('120.51;' + RetList[i]);
end;
end;
procedure TfrmGMV_EnteredInError.ClearList;
begin
lvVitals.Items.BeginUpdate;
while lvVitals.Items.Count > 0 do
begin
if lvVitals.Items[0].Data <> nil then
TGMV_FileEntry(lvVitals.Items[0].Data).Free;
lvVitals.Items.Delete(0);
end;
lvVitals.Items.EndUpdate;
btnOK.Enabled := False;
rgReason.Enabled := False;
rgReason.ItemIndex := -1;
end;
procedure TfrmGMV_EnteredInError.OkButtonClick(Sender: TObject);
var
i: integer;
s: String;
begin
if rgReason.ItemIndex < 0 then
MessageDlgS('No reason has been selected.', mtError, [mbok], 0)
else
begin
S := '';
for i := 0 to lvVitals.Items.Count - 1 do
if lvVitals.Items[i].Selected then
S := S + lvVitals.Items[i].Caption +' '+ lvVitals.Items[i].SubItems[0]//Adding spaces //AAN 05/21/2003
+ #13;
if MessageDlgS('Are you sure you want to mark vitals'+#13+#13+s+#13+ //CCOW preparation
'as ' + rgReason.Items[rgReason.ItemIndex]+'?',
mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
begin
Exit;
end;
for i := 0 to lvVitals.Items.Count - 1 do
if lvVitals.Items[i].Selected then
with TGMV_FileEntry(lvVitals.Items[i].Data) do
CallServer(
GMVBroker,
'GMV MARK ERROR',
[IEN + '^' + GMVUser.DUZ + '^' + IntToStr(rgReason.ItemIndex + 1)],
nil, RetList);
MessageDlgS('Vitals marked as ' + rgReason.Items[rgReason.ItemIndex]);
ModalResult := mrOK;
end;
end;
procedure TfrmGMV_EnteredInError.OkToProceed(Sender: TObject);
begin
btnOK.Enabled := (rgReason.ItemIndex > -1) and (lvVitals.SelCount > 0) and
(rgReason.ItemIndex >= 0);
end;
procedure TfrmGMV_EnteredInError.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClearList;
end;
procedure TfrmGMV_EnteredInError.lvVitalsChange(Sender: TObject;
Item: TListItem; Change: TItemChange);
begin
rgReason.Enabled := (lvVitals.ItemFocused <> nil) or (lvVitals.SelCount > 0);
end;
procedure TfrmGMV_EnteredInError.FormResize(Sender: TObject);
begin
lvVitals.Columns[1].Width := lvVitals.Width - lvVitals.Columns[0].Width - lvVitals.Columns[2].Width- 4;
end;
end.