101 lines
2.5 KiB
Plaintext
101 lines
2.5 KiB
Plaintext
|
unit uDCSumm;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, uConst;
|
||
|
|
|
||
|
|
type
|
||
|
|
TEditDCSummRec = record
|
||
|
|
Title: Integer;
|
||
|
|
DocType: integer;
|
||
|
|
Addend: integer;
|
||
|
|
EditIEN: integer;
|
||
|
|
AdmitDateTime: TFMDateTime;
|
||
|
|
DischargeDateTime: TFMDateTime;
|
||
|
|
TitleName: string;
|
||
|
|
DictDateTime: TFMDateTime;
|
||
|
|
Dictator: Int64;
|
||
|
|
DictatorName: string;
|
||
|
|
Cosigner: Int64;
|
||
|
|
CosignerName: string;
|
||
|
|
Transcriptionist: int64;
|
||
|
|
TranscriptionistName: string;
|
||
|
|
Attending: int64;
|
||
|
|
AttendingName: string;
|
||
|
|
Urgency: string;
|
||
|
|
UrgencyName: string;
|
||
|
|
Location: Integer;
|
||
|
|
LocationName: string;
|
||
|
|
VisitStr: string;
|
||
|
|
NeedCPT: Boolean;
|
||
|
|
Status: integer;
|
||
|
|
LastCosigner: Int64;
|
||
|
|
LastCosignerName: string;
|
||
|
|
IDParent: integer;
|
||
|
|
Lines: TStrings;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TDCSummRec = TEditDCSummRec;
|
||
|
|
|
||
|
|
TAdmitRec = record
|
||
|
|
AdmitDateTime: TFMDateTime;
|
||
|
|
Location: integer;
|
||
|
|
LocationName: string;
|
||
|
|
VisitStr: string;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TDCSummTitles = class
|
||
|
|
DfltTitle: Integer;
|
||
|
|
DfltTitleName: string;
|
||
|
|
ShortList: TStringList;
|
||
|
|
constructor Create;
|
||
|
|
destructor Destroy; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TDCSummPrefs = class
|
||
|
|
DfltLoc: Integer;
|
||
|
|
DfltLocName: string;
|
||
|
|
SortAscending: Boolean;
|
||
|
|
AskCosigner: Boolean;
|
||
|
|
DfltCosigner: Int64;
|
||
|
|
DfltCosignerName: string;
|
||
|
|
MaxSumms: Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function MakeDCSummDisplayText(RawText: string): string;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
function MakeDCSummDisplayText(RawText: string): string;
|
||
|
|
var
|
||
|
|
x: string;
|
||
|
|
begin
|
||
|
|
x := RawText;
|
||
|
|
if Copy(Piece(x, U, 9), 1, 4) = ' ' then SetPiece(x, U, 9, 'Dis: ');
|
||
|
|
if Piece(x, U, 1)[1] in ['A', 'N', 'E'] then
|
||
|
|
Result := Piece(x, U, 2)
|
||
|
|
else
|
||
|
|
Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(x, U, 3))) + ' ' +
|
||
|
|
Piece(x, U, 2) + ', ' + Piece(x, U, 6) + ', ' + Piece(Piece(x, U, 5), ';', 2) +
|
||
|
|
' (' + Piece(x,U,7) + '), ' + Piece(Piece(x, U, 8), ';', 1) + ', ' +
|
||
|
|
Piece(Piece(x, U, 9), ';', 1);
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ Discharge Summary Titles -------------------------------------------------------------------- }
|
||
|
|
|
||
|
|
constructor TDCSummTitles.Create;
|
||
|
|
{ creates an object to store Discharge Summary titles so only obtained from server once }
|
||
|
|
begin
|
||
|
|
inherited Create;
|
||
|
|
ShortList := TStringList.Create;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TDCSummTitles.Destroy;
|
||
|
|
{ frees the lists that were used to store the Discharge Summary titles }
|
||
|
|
begin
|
||
|
|
ShortList.Free;
|
||
|
|
inherited Destroy;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|