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

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

@@ -38 +38 @@
     procedure GotoQ(x: integer);
   public
+  MHTestComp: string;
+  MHA3: boolean;
   end;
 
@@ -134 +136 @@
       end;
     end;
+      if frmMHTest.MHTestComp = '' then frmMHTest.MHTestComp := '0';
+      Result := Result + U + frmMHTest.MHTestComp;
+      if Result = U then Result := '';
   finally
     frmMHTest.Free;
@@ -246 +251 @@
   try
     TstData.Assign(LoadMentalHealthTest(TestName));
+    if TstData.Strings[0] = '1' then MHA3 := True
+    else MHA3 := False;
     Screen.Cursor := crHourGlass;
     try
       TstData.Add('99999;X;0');
-      idx := 0;
+      idx := 1;
       FMaxLines := 0;
       FInfoText := '';
@@ -302 +309 @@
           if(Spec = 'I') then
           begin
-            AddTxt2Str(FInfoText);
+           if MHA3 = True then AddTxt2Str(QObj.FText)
+           else
+           AddTxt2Str(FInfoText);;
           end
           else
@@ -392 +401 @@
     FBuildingControls := TRUE;
     try
-      if(not assigned(FInfoLabel)) then
+    Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
+    Y := gap - sbMain.VertScrollBar.Position;
+    if MHA3 = False then
+     begin
+     if(not assigned(FInfoLabel)) then
       begin
         FInfoLabel := TMemo.Create(Self);
@@ -405 +418 @@
       end;
       BoundsRect := FInfoLabel.BoundsRect;
-      Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
-      Y := Gap - sbMain.VertScrollBar.Position;
+      //Wide := sbMain.Width - (Gap * 2) - ScrollBarWidth - 4;
+      //Y := gap - sbMain.VertScrollBar.Position;
       BoundsRect.Top := Y;
       BoundsRect.Right := BoundsRect.Left + Wide;
@@ -416 +429 @@
       for i := 0 to FObjs.Count-1 do
         TMHQuestion(FObjs[i]).BuildControls(Y, Wide);
+     end
+     else
+       begin
+         inc(Y, 1);
+         for i := 0 to FObjs.Count-1 do TMHQuestion(FObjs[i]).BuildControls(Y, Wide);
+       end;
     finally
       FBuildingControls := FALSE;
@@ -780 +799 @@
 var
   i, XCnt, First: integer;
-  msg: string;
+  msg, ans, TestStatus: string;
 
 begin
   msg := '';
+  ans := '';
   XCnt := 0;
   First := -1;
+  TestStatus := '2';
+  MHTestComp := '2';
   for i := 0 to FObjs.Count-1 do
   begin
+    ans := ans + TMHQuestion(Fobjs[i]).FAnswer;
     if(TMHQuestion(FObjs[i]).FAnswer = Skipped) then
     begin
@@ -797 +820 @@
     end;
   end;
+  if(XCnt = FObjs.Count) then ModalResult := mrOK;
+  TestStatus := VerifyMentalHealthTestComplete(Self.Caption, ans);
+  if Piece(TestStatus,U,1) <> '2' then
+    begin
+      if Piece(TestStatus,U,1)='1' then
+        begin
+          ModalResult := mrOK;
+          MHTestComp := '1';
+          EXIT;
+        end;
+      if Piece(TestStatus,U,1)='0' then
+        begin
+          MHTestComp := '0';
+          msg := Piece(TestStatus,u,2);
+          msg := 'The following questions have not been answered:' + CRLF + CRLF + '    ' + msg;
+          if(InfoBox(msg + CRLF + CRLF + 'Answer skipped questions?', 'Skipped Questions',
+           MB_YESNO or MB_ICONQUESTION) = IDYES) then GotoQ(First)
+          else
+            ModalResult := mrOK;
+            EXIT;
+        end;
+    end;
   if(XCnt = 0) then
     ModalResult := mrOK