Changeset 1679 for cprs/trunk/CPRS-Chart/uVA508CPRSCompatibility.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/uVA508CPRSCompatibility.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/uVA508CPRSCompatibility.pas

@@ -276 +276 @@
 procedure SpeakPatient;
 begin
-  if assigned(Patient) and (Patient.Name <> '') then
-    GetScreenReader.Speak(Patient.Name);
+  //CQ #17491: Associating 508 change that allows JAWS to dictate the patient status indicator along with the name.
+  if assigned(Patient) and (Patient.Name <> '') and (Patient.Status <> '') then
+    GetScreenReader.Speak(Patient.Name + Patient.Status);
 end;
 
@@ -289 +290 @@
   if text <> '' then
     text := text + ', ';
-  if assigned(Patient) and (Patient.Name <> '') then
-    text := text + Patient.Name
+  //CQ #17491: Associating 508 change that allows JAWS to dictate the patient status indicator along with the name.
+  if assigned(Patient) and (Patient.Name <> '') and (Patient.Status <> '') then
+    text := text + Patient.Name + Patient.Status
   else
     text := text + 'no patient selected';