Index: rs/trunk/CPRS-Chart/rECS.pas
===================================================================
--- /cprs/trunk/CPRS-Chart/rECS.pas	(revision 837)
+++ 	(revision )
@@ -1,148 +1,0 @@
-unit rECS;
-
-interface
-
-uses SysUtils, Windows, Classes, Forms, ORFn, rCore, uConst, ORClasses, ORNet, uCore;
-
-type
-  TECSReport = Class(TObject)
-  private
-    FReportHandle: string;            // PCE report or Patient Summary report
-    FReportType  : string;            // D: display  P: print
-    FPrintDEV    : string;            // if Print, the print device IEN
-    FReportStart : string;            // Start Date
-    FReportEnd   : string;            // End Date
-    FNeedReason  : string;           // Need procedure reason ?
-    FECSPermit   : boolean;           // Authorized use of ECS
-  public
-    constructor Create;
-    property ReportHandle: string       read FReportHandle  write FReportHandle;
-    property ReportType  : string       read FReportType    write FReportType;
-    property ReportStart : string       read FReportStart   write FReportStart;
-    property ReportEnd   : string       read FReportEnd     write FReportEnd;
-    property PrintDEV    : string       read FPrintDEV      write FPrintDEV;
-    property NeedReason  : string       read FNeedReason    write FNeedReason;
-    property ECSPermit   : boolean      read FECSPermit     write FECSPermit;
-  end;
-
-function GetVisitID: string;
-function GetDivisionID: string;
-function IsESSOInstalled: boolean;
-procedure SaveUserPath(APathInfo: string; var CurPath: string);
-procedure FormatECSDate(ADTStr: string; var AnECSRpt: TECSReport);
-procedure LoadECSReportText(Dest: TStrings; AnECSRpt: TECSReport);
-procedure PrintECSReportToDevice(AnECSRpt: TECSReport);
-
-implementation
-uses TRPCB;
-
-constructor TECSReport.Create;
-begin
-  ReportHandle := '';
-  ReportType   := '';
-  ReportStart  := '';
-  ReportEnd    := '';
-  PrintDEV     := '';
-  FNeedReason  := '';
-  ECSPermit    := False;
-end;
-
-function IsESSOInstalled: boolean;
-var
-  rtn: integer;
-begin
-  Result := False;
-  rtn := StrToIntDef(SCallV('ORECS01 CHKESSO',[nil]),0);
-  if rtn > 0 then
-    Result := True;
-end;
-
-function GetVisitID: string;
-var
-  vsitStr: string;
-begin
-  vsitStr := Encounter.VisitStr + ';' + Patient.DFN;
-  Result := SCallV('ORECS01 VSITID',[vsitStr]);
-end;
-
-function GetDivisionID: string;
-var
-  divID: string;
-begin
-  divID := SCallV('ORECS01 GETDIV',[nil]);
-  Result := divID;
-end;
-
-procedure SaveUserPath(APathInfo: string; var CurPath: string);
-begin
-  CurPath := SCallV('ORECS01 SAVPATH',[APathInfo]);
-end;
-
-procedure FormatECSDate(ADTStr: string; var AnECSRpt: TECSReport);
-var
-  x,DaysBack :string;
-  Alpha, Omega: double;
-begin
-  Alpha := 0;
-  Omega := 0;
-  if CharAt(ADTStr, 1) = 'T' then
-  begin
-    Alpha := StrToFMDateTime(Piece(ADTStr,';',1));
-    Omega := StrToFMDateTime(Piece(ADTStr,';',2));
-  end;
-  if CharAt(ADTStr, 1) = 'd' then
-  begin
-    x := Piece(ADTStr,';',1);
-    DaysBack := Copy(x, 2, Length(x));
-    Alpha := StrToFMDateTime('T-' + DaysBack);
-    Omega := StrToFMDateTime('T');
-  end;
-  AnECSRpt.ReportStart := FloatToStr(Alpha);
-  AnECSRpt.ReportEnd   := FloatToStr(Omega);
-end;
-
-procedure LoadECSReportText(Dest: TStrings; AnECSRpt: TECSReport);
-var
-  userid: string;
-begin
-  with RPCBrokerv do
-  begin
-    ClearParameters := True;
-    RemoteProcedure := 'ORECS01 ECRPT';
-    Param[0].PType  := list;
-    Param[0].Mult['"ECHNDL"'] := AnECSRpt.ReportHandle;
-    Param[0].Mult['"ECPTYP"'] := AnECSRpt.ReportType;
-    Param[0].Mult['"ECDEV"']  := AnECSRpt.PrintDEV;
-    Param[0].Mult['"ECDFN"']  := Patient.DFN;
-    Param[0].Mult['"ECSD"']   := AnECSRpt.ReportStart;
-    Param[0].Mult['"ECED"']   := AnECSRpt.ReportEnd;
-    Param[0].Mult['"ECRY"']   := AnECSRpt.NeedReason;
-    Param[0].Mult['"ECDUZ"']  := userid;
-    CallBroker;
-  end;
-  QuickCopy(RPCBrokerV.Results,Dest);
-end;
-
-procedure PrintECSReportToDevice(AnECSRpt: TECSReport);
-var
-  userid: string;
-begin
-  userid := IntToStr(User.DUZ);
-  with RPCBrokerV do
-  begin
-    clearParameters := True;
-    RemoteProcedure := 'ORECS01 ECPRINT';
-    Param[0].PType := List;
-    Param[0].Mult['"ECHNDL"'] := AnECSRpt.ReportHandle;
-    Param[0].Mult['"ECPTYP"'] := AnECSRpt.ReportType;
-    Param[0].Mult['"ECDEV"']  := AnECSRpt.PrintDEV;
-    Param[0].Mult['"ECDFN"']  := Patient.DFN;
-    Param[0].Mult['"ECSD"']   := AnECSRpt.ReportStart;
-    Param[0].Mult['"ECED"']   := AnECSRpt.ReportEnd;
-    Param[0].Mult['"ECRY"']   := AnECSRpt.NeedReason;
-    Param[0].Mult['"ECDUZ"']  := userid;
-    CallBroker;
-  end;
-end;
-
-end.
Index: rs/trunk/CPRS-Chart/rEventHooks.pas
===================================================================
--- /cprs/trunk/CPRS-Chart/rEventHooks.pas	(revision 837)
+++ 	(revision )
@@ -1,36 +1,0 @@
-unit rEventHooks;
-
-interface
-
-uses
-  Classes, ORNet;
-  
-function GetPatientChangeGUIDs: string;
-function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
-function GetAllActiveCOMObjects: TStrings;
-function GetCOMObjectDetails(IEN: integer): string;
-
-implementation
-
-function GetPatientChangeGUIDs: string;
-begin
-  Result := sCallV('ORWCOM PTOBJ', []);
-end;
-
-function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
-begin
-  Result := sCallV('ORWCOM ORDEROBJ', [DisplayGroup]);
-end;
-
-function GetAllActiveCOMObjects: TStrings;
-begin
-  CallV('ORWCOM GETOBJS', []);
-  Result := RPCBrokerV.Results;
-end;
-
-function GetCOMObjectDetails(IEN: integer): string;
-begin
-  Result := sCallV('ORWCOM DETAILS', [IEN]);
-end;
-
-end.
Index: rs/trunk/CPRS-Chart/rProbs.pas
===================================================================
--- /cprs/trunk/CPRS-Chart/rProbs.pas	(revision 837)
+++ 	(revision )
@@ -1,201 +1,0 @@
-unit rProbs;
-
-interface
-
-uses SysUtils, Classes, ORNet, ORFn, uCore;
-
-function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string;
-           ProbFile: TStringList): TStrings ;
-function AuditHistory(ProblemIFN: string): TStrings ;
-function ClinicFilterList(LocList: TStringList): TStrings ;
-function ClinicSearch(DummyArg:string): TStrings ;
-function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ;
-{function ProblemDetail}
-function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ;
-function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string;
-           ProbFile: TStringList): TStrings ;
-function InitPt(const PatientDFN: string): TStrings ;  //*DFN*
-function InitUser(ProviderID: int64): TStrings ;
-function PatientProviders(const PatientDFN: string): TStrings ;  //*DFN*
-function ProblemList(const PatientDFN: string; Status:string): TStrings ;  //*DFN*
-function OldProblemLexiconSearch(SearchFor: string; Matches: integer; ADate: TFMDateTime = 0): TStrings ;
-function ProblemLexiconCodeSearch(LexIEN: string; CodeType: string; ADate: TFMDateTime = 0): string ;
-function ProblemLexiconSearch(SearchFor: string; View: string; ADate: TFMDateTime = 0): TStrings ;
-function ProviderFilterList(ProvList: TStringList): TStrings ;
-function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ;
-function ProblemReplace(ProblemIFN: string): TStrings ;
-function ServiceFilterList(LocList: TStringList): TStrings ;
-function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings;
-function ProblemUpdate(AltProbFile: TStringList): TStrings ;
-function UserProblemCategories(Provider: int64; Location: integer): TStrings ;
-function UserProblemList(CategoryIEN: string): TStrings ;
-function ProblemVerify(ProblemIFN: string): TStrings ;
-function GetProblemComments(ProblemIFN: string): TStrings;
-procedure SaveViewPreferences(ViewPref: string);
-function CheckForDuplicateProblem(TermIEN, TermText: string): string;
-
-implementation
-
-function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string;
-           ProbFile: TStringList): TStrings ;
-begin
-   CallV('ORQQPL ADD SAVE',[PatientInfo, ProviderID, ptVAMC, ProbFile]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function AuditHistory(ProblemIFN: string): TStrings ;
-begin
-   CallV('ORQQPL AUDIT HIST',[ProblemIFN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ClinicFilterList(LocList: TStringList): TStrings ;
-begin
-   CallV('ORQQPL CLIN FILTER LIST',[LocList]);
-   MixedCaseList(RPCBrokerV.Results) ;
-   Result := RPCBrokerV.Results;
-end ;
-
-function ClinicSearch(DummyArg:string): TStrings ;
-begin
-   CallV('ORQQPL CLIN SRCH',[DummyArg]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ;
-begin
-   CallV('ORQQPL DELETE',[ProblemIFN, ProviderID, ptVAMC, Comment]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ;
-begin
-   CallV('ORQQPL EDIT LOAD',[ProblemIFN, ProviderID, ptVAMC]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string;
-           ProbFile: TStringList): TStrings ;
-begin
-   CallV('ORQQPL EDIT SAVE',[ProblemIFN, ProviderID, ptVAMC, PrimUser, ProbFile]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function InitPt(const PatientDFN: string): TStrings ;  //*DFN*
-begin
-   CallV('ORQQPL INIT PT',[PatientDFN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function InitUser(ProviderID: int64): TStrings ;
-begin
-   CallV('ORQQPL INIT USER',[ProviderID]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function PatientProviders(const PatientDFN: string): TStrings ;  //*DFN*
-begin
-   CallV('ORQPT PATIENT TEAM PROVIDERS',[PatientDFN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemLexiconSearch(SearchFor: string; View: string; ADate: TFMDateTime = 0): TStrings ;
-begin
-   CallV('ORWPCE LEX',[SearchFor,View, ADate]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemLexiconCodeSearch(LexIEN: string; CodeType: string; ADate: TFMDateTime = 0): string ;
-begin
-   CallV('ORWPCE LEXCODE',[LexIEN, CodeType, ADate]);
-   Result := RPCBrokerV.Results[0] ;
-end ;
-
-function OldProblemLexiconSearch(SearchFor: string; Matches: integer; ADate: TFMDateTime = 0): TStrings ;
-const
-  VIEW = '';
-begin
-   CallV('ORQQPL PROBLEM LEX SEARCH',[SearchFor, Matches, VIEW, ADate]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemList(const PatientDFN: string; Status:string): TStrings ;  //*DFN*
-begin
-   CallV('ORQQPL PROBLEM LIST',[PatientDFN, status]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProviderFilterList(ProvList: TStringList): TStrings ;
-begin
-   CallV('ORQQPL PROV FILTER LIST',[ProvList]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ;
-begin
-   CallV('ORQQPL PROVIDER LIST',[Flag,Number,From,Part]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemReplace(ProblemIFN: string): TStrings ;
-begin
-   CallV('ORQQPL REPLACE',[ProblemIFN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ServiceFilterList(LocList: TStringList): TStrings ;
-begin
-   CallV('ORQQPL SERV FILTER LIST',[LocList]);
-   MixedCaseList(RPCBrokerV.Results) ;
-   Result := RPCBrokerV.Results;
-end ;
-
-function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings;
-begin
-   CallV('ORQQPL SRVC SRCH',[StartFrom, Direction, BoolChar[All]]);
-   MixedCaseList(RPCBrokerV.Results) ;
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemUpdate(AltProbFile: TStringList): TStrings ;
-begin
-   CallV('ORQQPL UPDATE',[AltProbFile]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function ProblemVerify(ProblemIFN: string): TStrings ;
-begin
-   CallV('ORQQPL VERIFY',[ProblemIFN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function UserProblemCategories(Provider: int64; Location: integer): TStrings ;
-begin
-   CallV('ORQQPL USER PROB CATS',[Provider, Location]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function UserProblemList(CategoryIEN: string): TStrings ;
-begin
-   CallV('ORQQPL USER PROB LIST',[CategoryIEN]);
-   Result := RPCBrokerV.Results ;
-end ;
-
-function GetProblemComments(ProblemIFN: string): TStrings;
-begin
-   CallV('ORQQPL PROB COMMENTS',[ProblemIFN]);
-   Result := RPCBrokerV.Results ;
-end;
-
-procedure SaveViewPreferences(ViewPref: string);
-begin
-  CallV('ORQQPL SAVEVIEW',[ViewPref]);
-end;
-
-function CheckForDuplicateProblem(TermIEN, TermText: string): string;
-begin
-  CallV('ORQQPL CHECK DUP',[Patient.DFN, TermIEN, TermText]);
-  Result := RPCBrokerV.Results[0];
-end;
-
-end.
Index: rs/trunk/CPRS-Chart/sRemSrch.rc
===================================================================
--- /cprs/trunk/CPRS-Chart/sRemSrch.rc	(revision 837)
+++ 	(revision )
@@ -1,1 +1,0 @@
-REMSEARCHAVI AVI "RemSrch.avi"