Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/rCore.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/rCore.pas (modified) (7 diffs)

cprs/branches/foia-cprs/CPRS-Chart/rCore.pas

@@ -98 +98 @@
 { General calls }
 
+function GetProgramFilesPath: String;
 function ExternalName(IEN: Int64; FileNumber: Double): string;
 function PersonHasKey(APerson: Int64; const AKey: string): Boolean;
@@ -133 +134 @@
 procedure RenewAlert(XQAID: string);
 function GetSortMethod: string;
-procedure SetSortMethod(Sort: string);
+procedure SetSortMethod(Sort: string; Direction: string);
 
 { Patient List calls }
@@ -198 +199 @@
 function HasRemoteData(const DFN: string; var ALocations: TStringList): Boolean;
 function CheckHL7TCPLink: Boolean;
+function UseVistaWeb: Boolean;
+function GetVistaWebAddress(value: string): string;
+procedure ChangeVistaWebParam(value: string);
 
 implementation
 
-uses Hash, uCore;
+uses Hash, uCore, ShlObj, Windows;
 
 var
@@ -303 +307 @@
 
 { General calls }
+
+function GetProgramFilesPath: String;
+Const
+  CSIDL_PROGRAM_FILES = $0026;
+var
+  Path: array[0..Max_Path] of Char;
+begin
+  Path := '';
+  SHGetSpecialFolderPath(0,Path,CSIDL_PROGRAM_FILES,false);
+  Result := Path;
+end;
 
 function ExternalName(IEN: Int64; FileNumber: Double): string;
@@ -507 +522 @@
 end;
 
-procedure SetSortMethod(Sort: string);
+procedure SetSortMethod(Sort: string; Direction: string);
 // Sets alert sort method for user
 begin
-   CallV('ORWORB SETSORT', [Sort]);
+   CallV('ORWORB SETSORT', [Sort, Direction]);
 end;
 
@@ -612 +627 @@
   a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call!}
 begin
-  CallV('ORWU NEWPERS', [StartFrom, Direction, '', '', True]);  //TRUE = return all active and inactive users
+  CallV('ORWU NEWPERS', [StartFrom, Direction, '', '', '', True]);  //TRUE = return all active and inactive users
   MixedCaseList(RPCBrokerV.Results);
   Result := RPCBrokerV.Results;
@@ -1244 +1259 @@
  end;
 
+function UseVistaWeb: Boolean;
+ begin;
+   CallV('ORWCIRN VISTAWEB',[nil]);
+   result := RPCBrokerV.Results[0] = '1';
+ end;
+
+function GetVistaWebAddress(value: string): string;
+begin
+  CallV('ORWCIRN WEBADDR', [value]);
+  result := RPCBrokerV.Results[0];
+end;
+
+procedure ChangeVistaWebParam(value: string);
+  begin
+    CallV('ORWCIRN WEBCH',[value]);
+  end;
+
 function GetDefaultPrinter(DUZ: Int64; Location: integer): string;
 begin