Changeset 830 for cprs/trunk/CPRS-Chart/rReminders.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/rReminders.pas (modified) (9 diffs)

cprs/trunk/CPRS-Chart/rReminders.pas

@@ -3 +3 @@
 interface
 uses
-  Windows,Classes, SysUtils, TRPCB, ORNet, ORFn;
+  Windows,Classes, SysUtils, TRPCB, ORNet, ORFn, fMHTest, StrUtils;
+
+type
+  TMHdllFound = record
+  DllCheck: boolean;
+  DllFound: boolean;
+end;
 
 procedure GetCurrentReminders;
@@ -21 +27 @@
 function GetProgressNoteHeader: string;
 function LoadMentalHealthTest(TestName: string): TStrings;
-procedure MentalHealthTestResults(var AText: string; const DlgIEN: integer; const TestName:
+procedure MentalHealthTestResults(var AText: string; const DlgIEN: string; const TestName:
                                   string; const AProvider: Int64; const Answers: string);
 procedure SaveMentalHealthTest(const TestName: string; ADate: TFMDateTime;
@@ -41 +47 @@
 function GetAllRemindersAndCategories: TStrings;
 function VerifyMentalHealthTestComplete(TestName, Answers: string): String;
+function MHDLLFound: boolean;
+function UsedMHDllRPC: boolean;
+procedure PopulateMHdll;
+procedure GetMHResultText(var AText: string; ResultsGroups, Scores: TStringList);
 
 
@@ -54 +64 @@
   uNewCoverSheetListActive: integer = -1;
   uCanEditAllCoverSheetLists: integer = -1;
+  MHDLL: TMHDllFound;
 
 procedure GetCurrentReminders;
@@ -63 +74 @@
 begin
   CallV('ORQQPXRM REMINDER CATEGORIES', [Patient.DFN, Encounter.Location]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -170 +181 @@
       Param[0].Mult[AList[i]] := '';
     CallBroker;
-    AList.Assign(Results);
+    FastAssign(Results, AList);
   end;
 end;
@@ -191 +202 @@
 end;
 
-procedure MentalHealthTestResults(var AText: string; const DlgIEN: integer; const TestName:
+procedure MentalHealthTestResults(var AText: string; const DlgIEN: string; const TestName:
                                   string; const AProvider: Int64; const Answers: string);
 var
@@ -203 +214 @@
     RemoteProcedure := 'ORQQPXRM MENTAL HEALTH RESULTS';
     Param[0].PType := literal;
-    Param[0].Value := IntToStr(DlgIEN);
+    Param[0].Value := DlgIEN;
     Param[1].PType := list;
     Param[1].Mult['"DFN"'] := Patient.DFN;
@@ -430 +441 @@
 end;
 
+function MHDLLFound: boolean;
+begin
+  if MHDll.DllCheck = false then
+     begin
+       MHDll.DllCheck := True;
+       MHDLL.DllFound := CheckforMHDll;
+     end;
+  Result := MHDLL.DllFound;
+end;
+
+function UsedMHDllRPC: boolean;
+begin
+  Result := sCallV('ORQQPXRM MHDLLDMS',[]) = '1';
+end;
+
+procedure PopulateMHdll;
+begin
+  if MHDll.DllCheck = false then
+    begin
+      MHDll.DllCheck := True;
+      MHDll.DllFound := CheckforMHDll;
+    end;
+end;
+
+procedure GetMHResultText(var AText: string; ResultsGroups, Scores: TStringList);
+var
+i, j: integer;
+tmp, info: string;
+tempInfo: TStringList;
+begin
+ //AGP for some reason in some account passing two arrays in the RPC was
+ //not working had to convert back to the old method for the RPC for now
+ with RPCBrokerV do
+  begin
+    ClearParameters := True;
+    RemoteProcedure := 'ORQQPXRM MHDLL';
+    Param[0].PType := literal;
+    Param[0].Value := PATIENT.DFN;  //*DFN*
+    Param[1].PType := list;
+    j := 0;
+    for i := 0 to ResultsGroups.Count-1 do
+      begin
+        j := j + 1;
+        Param[1].Mult['"RESULTS",'+ InttoStr(j)]:=ResultsGroups.Strings[i];
+      end;
+    j := 0;
+    for i := 0 to Scores.Count-1 do
+      begin
+        j := j + 1;
+        Param[1].Mult['"SCORES",'+ InttoStr(j)]:=Scores.Strings[i];
+      end;
+  end;
+  CallBroker;
+  //CallV('ORQQPXRM MHDLL',[ResultsGroups, Scores, Patient.DFN]);
+  AText := '';
+  info := '';
+  for i := 0 to RPCBrokerV.Results.Count - 1 do
+    begin
+      tmp := RPCBrokerV.Results[i];
+      if pos('[INFOTEXT]',tmp)>0 then
+        begin
+           if info <> '' then info := info + ' ' + Copy(tmp,11,(Length(tmp)-1))
+           else info := Copy(tmp,11,(Length(tmp)-1));
+        end
+      else
+      begin
+        if(AText <> '') then
+        begin
+          if(copy(AText, length(AText), 1) = '.') then
+            AText := AText;
+          AText := AText + ' ';
+        end;
+        AText := AText + Trim(tmp);
+      end;
+  end;
+  if info <> '' then
+    begin
+      if pos(U, info) > 0 then
+        begin
+          tempInfo := TStringList.Create;
+          PiecestoList(info,'^',tempInfo);
+          info := '';
+          for i := 0 to tempInfo.Count -1 do
+            begin
+              if info = '' then info := tempInfo.Strings[i]
+              else info := info + CRLF + tempInfo.Strings[i];
+            end;
+        end;
+      InfoBox(info,'Attention Needed',MB_OK);
+    end;
+end;
 initialization