Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/uVA508CPRSCompatibility.pas

Timestamp:

May 8, 2015, 7:52:55 AM (9 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

cprs/branches/HealthSevak-CPRS/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';