Changeset 830 for cprs/trunk/CPRS-Chart/rCore.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/rCore.pas (modified) (37 diffs)

cprs/trunk/CPRS-Chart/rCore.pas

@@ -104 +104 @@
 { General calls }
 
-function GetProgramFilesPath: String;
 function ExternalName(IEN: Int64; FileNumber: Double): string;
 function PersonHasKey(APerson: Int64; const AKey: string): Boolean;
@@ -118 +117 @@
 function GetUserInfo: TUserInfo;
 function GetUserParam(const AParamName: string): string;
+procedure GetUserListParam(Dest: TStrings; const AParamName: string);
 function HasSecurityKey(const KeyName: string): Boolean;
 function HasMenuOptionAccess(const OptionName: string): Boolean;
@@ -152 +152 @@
 procedure ListProviderTop(Dest: TStrings);
 function SubSetOfProviders(const StartFrom: string; Direction: Integer): TStrings;
+function SubSetOfCosigners(const StartFrom: string; Direction: Integer; Date: TFMDateTime;
+  ADocType: integer; ATitle: integer): TStrings;
 procedure ListClinicTop(Dest: TStrings);
 function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings;
@@ -210 +212 @@
 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
@@ -219 +219 @@
 
 var
-  uFMToday: TFMDateTime;                         // Today's date in Fileman format.
   uPtListDfltSort: string = '';                  // Current user's patient selection list default sort order.
 
@@ -225 +224 @@
 
 function FormatSSN(const x: string): string;
- {places the dashes in a social security number }
-
+{ places the dashes in a social security number }
 //vwpt code 4/17/0  see below
 var
@@ -267 +265 @@
 { return the current date in Fileman format }
 begin
-  if uFMToday = 0 then uFMToday := Int(FMNow);
-  Result := uFMToday;
+  Result := Int(FMNow);
 end;
 
@@ -318 +315 @@
 begin
   CallV('ORWPT CLINRNG', [nil]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -328 +325 @@
 
 { 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;
@@ -441 +427 @@
 end;
 
+procedure GetUserListParam(Dest: TStrings; const AParamName: string);
+var
+  tmplst: TStringList;
+begin
+  tmplst := TStringList.Create;
+  try
+    tCallV(tmplst, 'ORWU PARAMS', [AParamName]);
+    FastAssign(tmplst, Dest);
+  finally
+    tmplst.Free;
+  end;
+end;
+
 function HasSecurityKey(const KeyName: string): Boolean;
 { returns true if the currently logged in user has a given security key }
@@ -472 +471 @@
     //UpdateUnsignedOrderAlerts(Patient.DFN);      //moved to AFTER signature and DC actions
     tCallV(tmplst, 'ORWORB FASTUSER', [nil]);
-    Dest.Assign(tmplst);
+    FastAssign(tmplst, Dest);
   finally
     tmplst.Free;
@@ -593 +592 @@
   CallV('ORQPT SPECIALTIES', [nil]);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -601 +600 @@
   CallV('ORQPT TEAMS', [nil]);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -609 +608 @@
   CallV('ORQPT WARDS', [nil]);
   //MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -623 +622 @@
   CallV('ORWU NEWPERS', [StartFrom, Direction, 'PROVIDER']);
 //  MixedCaseList(RPCBrokerV.Results);
+  Result := RPCBrokerV.Results;
+end;
+
+function SubSetOfCosigners(const StartFrom: string; Direction: Integer; Date: TFMDateTime;
+  ADocType: integer; ATitle: integer): TStrings;
+{ returns a pointer to a list of cosigners (for use in a long list box) -  The return value is
+  a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }
+begin
+  if ATitle > 0 then ADocType := 0;
+  // CQ #17218 - Correcting order of parameters for this call
+  //  CallV('ORWU2 COSIGNER', [StartFrom, Direction, Date, ATitle, ADocType]);
+  CallV('ORWU2 COSIGNER', [StartFrom, Direction, Date, ADocType, ATitle]);
+
+  //  MixedCaseList(RPCBrokerV.Results);
   Result := RPCBrokerV.Results;
 end;
@@ -726 +739 @@
     end;
     MixedCaseList(tmplst);
-    Dest.Assign(tmplst);
+    FastAssign(tmplst, Dest);
   finally
     tmplst.Free;
@@ -738 +751 @@
   SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -747 +760 @@
   SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -756 +769 @@
   SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -784 +797 @@
     end;
     MixedCaseList(Results);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -800 +813 @@
     SortByPiece(TStringList(RPCBrokerV.Results), U, 2);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -832 +845 @@
 
 //END VWPT ADDITIONS
+
 procedure ListPtByLast5(Dest: TStrings; const Last5: string);
 var
@@ -851 +865 @@
   end;
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -873 +887 @@
   end;
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -902 +916 @@
   end;
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -931 +945 @@
   end;
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -939 +953 @@
   CallV('ORWPT TOP', [nil]);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -1045 +1059 @@
 
 function GetPtIDInfo(const DFN: string): TPtIDInfo;  //*DFN*
-{ returns the identifiers displayed upon patient selection
 //VWPT ADD HRN   ,ALT HRN (FUTURE)
-  Pieces: SSN[1]^DOB[2]^SEX[3]^VET[4]^SC%[5]^WARD[6]^RM-BED[7]^NAME[8]^HRN[9]^ALTHRN[10] }
+//  Pieces: SSN[1]^DOB[2]^SEX[3]^VET[4]^SC%[5]^WARD[6]^RM-BED[7]^NAME[8]^HRN[9]^ALTHRN[10] }
  // Pieces: SSN[1]^DOB[2]^SEX[3]^VET[4]^SC%[5]^WARD[6]^RM-BED[7]^NAME[8] }
 var
@@ -1125 +1138 @@
   //VWPT add HRN and ALTERNATE HRN used with PID hl7 segments
   ADMITTIME[10]^CONVERTED[11]^SVCONN[12]^SC%[13]^ICN[14]^Age[15]^TreatSpec[16]^HRN[17]^AltHRN[18] }
-//  BEFORE THIS VWPT WAS         ADMITTIME[10]^CONVERTED[11]^SVCONN[12]^SC%[13]^ICN[14]^Age[15]^TreatSpec[16] }
+ //  BEFORE THIS VWPT WAS         ADMITTIME[10]^CONVERTED[11]^SVCONN[12]^SC%[13]^ICN[14]^Age[15]^TreatSpec[16] }
 var
   x: string;
@@ -1148 +1161 @@
     ServiceConnected := Piece(x, U, 12) = '1';
     SCPercent := StrToIntDef(Piece(x, U, 13), 0);
-
     //VWPT ADD HRN   AltHRN (future)
     HRN := Piece(x, U, 17);
@@ -1229 +1241 @@
     MixedCaseList(Results);
     SetListFMDateTime('mmm dd,yyyy hh:nn', TStringList(Results), U, 2);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
   (*
@@ -1245 +1257 @@
       Results[i] := x;
     end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
   *)
@@ -1267 +1279 @@
       Results[i] := x;
     end;
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -1301 +1313 @@
 begin
   CallV('ORWCIRN FACLIST', [DFN]);
-  ALocations.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, ALocations);
   Result := not (Piece(RPCBrokerV.Results[0], U, 1) = '-1');
 
@@ -1320 +1332 @@
  end;
 
-function UseVistaWeb: Boolean;
- begin;
-   CallV('ORWCIRN VISTAWEB',[nil]);
-   result := RPCBrokerV.Results[0] = '1';
- end;
-
 function GetVistaWebAddress(value: string): string;
 begin
@@ -1332 +1338 @@
 end;
 
-procedure ChangeVistaWebParam(value: string);
-  begin
-    CallV('ORWCIRN WEBCH',[value]);
-  end;
-
 function GetDefaultPrinter(DUZ: Int64; Location: integer): string;
 begin
@@ -1342 +1343 @@
 end;
 
-initialization
-  uFMToday := 0;
-
 end.