Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/rReminders.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/rReminders.pas (modified) (4 diffs)

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

@@ -40 +40 @@
 function GetCategoryItems(CatIEN: integer): TStrings;
 function GetAllRemindersAndCategories: TStrings;
+function VerifyMentalHealthTestComplete(TestName, Answers: string): String;
+
 
 implementation
@@ -140 +142 @@
 
 function GetDialogInfo(IEN: string; RemIEN: boolean): TStrings;
-Var
-ver: string;
-
-begin
-  ver:=sCallV('ORQQPXRM CHECK REM VERSION', []);
-  if pos('2',ver)>0 then
-     begin
+begin
      if RemIEN then
         CallV('ORQQPXRM REMINDER DIALOG', [IEN, Patient.DFN])
@@ -152 +148 @@
         CallV('PXRM REMINDER DIALOG (TIU)', [IEN, Patient.DFN]);
      Result := RPCBrokerV.Results;
-     end
-  else
-      begin
-      if RemIEN then
-        CallV('ORQQPXRM REMINDER DIALOG', [IEN])
-     else
-        CallV('PXRM REMINDER DIALOG (TIU)', [IEN]);
-     Result := RPCBrokerV.Results;
-  end;
 end;
 
@@ -422 +409 @@
 end;
 
+function VerifyMentalHealthTestComplete(TestName, Answers: string): String;
+
+begin
+    CallV('ORQQPXRM MHV', [Patient.DFN, TestName, Answers]);
+    if RPCBrokerV.Results[0]='2' then
+      begin
+        Result := '2'+ U;
+        EXIT;
+      end;
+    if RPCBrokerV.Results[0] = '1' then
+      begin
+        Result := '1' + U;
+        EXIT;
+      end;
+    if RPCBrokerV.Results[0] = '0' then
+      begin
+        Result := '0' + U + RPCBrokerV.Results[1];
+        EXIT;
+      end;
+end;
+
 initialization