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

cprs/branches/foia-cprs/CPRS-Chart/Consults/rConsults.pas

@@ -4 +4 @@
 
 uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, TRPCB, dialogs, uConsults, rTIU, uTIU;
+
+type
+
+  TUnresolvedConsults = record
+    UnresolvedConsultsExist: boolean;
+    ShowNagScreen: boolean;
+  end;
 
 {Consult Titles }
@@ -32 +39 @@
 function GetFormattedSF513(AConsult: Integer; ChartCopy: string): TStrings;
 function UnresolvedConsultsExist: boolean;
+procedure GetUnresolvedConsultsInfo;
 
 {list box fillers}
@@ -97 +105 @@
   uClinProcClass: integer;
   uClinProcTitles: TClinProcTitles;
+  uUnresolvedConsults: TUnresolvedConsults;
 
 implementation
@@ -602 +611 @@
 end;
 
+procedure GetUnresolvedConsultsInfo;
+var
+  x: string;
+begin
+  x := sCallV('ORQQCN UNRESOLVED', [Patient.DFN]);
+  with uUnresolvedConsults do
+  begin
+    UnresolvedConsultsExist := (Piece(x, U, 1) = '1');
+    ShowNagScreen := (Piece(x, U, 2) = '1');
+  end;
+end;
+
 function ConsultMessage(AnIEN: Integer): string;
 begin