Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/rPCE.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/rPCE.pas (modified) (11 diffs)

cprs/trunk/CPRS-Chart/Encounter/rPCE.pas

@@ -42 +42 @@
     HNCAllow: Boolean;        // prompt for Head or Neck Cancer
     HNCDflt:  Boolean;        // default if prompting Head or Neck Cancer
-    CVAllow: Boolean;        // prompt for Combat Veteran Related
-    CVDflt:  Boolean;        // default if prompting Comabt Veteran
+    CVAllow:  Boolean;        // prompt for Combat Veteran Related
+    CVDflt:   Boolean;        // default if prompting Comabt Veteran
+    SHDAllow: Boolean;        // prompt for Shipboard Hazard and Defense
+    SHDDflt:  Boolean;        // default if prompting Shipboard Hazard and Defense
   end;
 
@@ -149 +151 @@
                                              ANoteIEN: integer): string;
 function IsUserAProvider(AUser: Int64; ADate: TFMDateTime): boolean;
+function IsUserAUSRProvider(AUser: Int64; ADate: TFMDateTime): boolean;
 function IsCancelOrNoShow(ANote: integer): boolean;
 function IsNonCountClinic(ALocation: integer): boolean;
@@ -242 +245 @@
   end;
   CallV('ORWPCE LEX', [x, CodeSys, ADate]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -405 +408 @@
     uVTypeLastDate := EncDt;
   end;
-  Dest.Assign(uVTypeForLoc);
+  FastAssign(uVTypeForLoc, Dest);
 end;
 
@@ -1072 +1075 @@
     CVAllow  := Piece(Piece(x, ';', 7), U, 1) = '1';
     CVDflt   := Piece(Piece(x, ';', 7), U, 2) = '1';
+    SHDAllow := Piece(Piece(x, ';', 8), U, 1) = '1';
+    SHDDflt  := Piece(Piece(x, ';', 8), U, 2) = '1';
   end;
 end;
@@ -1079 +1084 @@
 begin
   CallV('ORWPCE SCDIS', [Patient.DFN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -1088 +1093 @@
   else
     CallV('ORWPCE PCE4NOTE', [ANoteIEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -1155 +1160 @@
         end;
       end;
-      uHasCPT.AddStrings(RPCBrokerV.Results);
+      FastAddStrings(RPCBrokerV.Results, uHasCPT);
     end;
   end;
@@ -1219 +1224 @@
     begin
       if idx = 0 then
-        tCallV(TmpSL,RPC,[nil])
+      begin
+        if (typ = 1) or (typ = 2) then
+          tCallV(TmpSL,RPC,[uEncPCEData.VisitDateTime])
+        else
+          tCallV(TmpSL,RPC,[nil]);
+      end
       else
         tCallV(TmpSL,RPC,[idx]);
@@ -1244 +1254 @@
       end;
     end;
-    Dest.Assign(TmpSL);
+    FastAssign(TmpSL, Dest);
   finally
     TmpSL.Free;
@@ -1454 +1464 @@
 end;
 
+function IsUserAUSRProvider(AUser: Int64; ADate: TFMDateTime): boolean;
+begin
+  Result := (sCallV('TIU IS USER A USR PROVIDER', [AUser, ADate]) = '1');
+end;
+
 //function HNCOK: boolean;
 //begin