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

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

@@ -4 +4 @@
 
 uses SysUtils, Classes, ORNet, ORFn, rCore, uCore, uConst, TRPCB, uTIU;
+
+type
+  TPatchInstalled = record
+    PatchInstalled: boolean;
+    PatchChecked: boolean;
+  end;
 
 { Progress Note Titles }
@@ -10 +16 @@
 procedure ResetNoteTitles;
 function IsConsultTitle(TitleIEN: Integer): Boolean;
+function IsPRFTitle(TitleIEN: Integer): Boolean;
 function IsClinProcTitle(TitleIEN: Integer): Boolean;
 procedure ListNoteTitlesShort(Dest: TStrings);
@@ -20 +27 @@
 function AskCosignerForNotes: Boolean;
 function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64): Boolean;
-function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64): Boolean;
+function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 function AskSubjectForNotes: Boolean;
-function CanCosign(ATitle, ADocType: integer; AUser: Int64): Boolean;
+function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;
 function CanChangeCosigner(IEN: integer): boolean;
 procedure DefaultCosigner(var IEN: Int64; var Name: string);
@@ -93 +100 @@
 function UserInactive(EIN: String): boolean;
 
+//Miscellaneous
+function TIUPatch175Installed: boolean;
+
 const
   CLS_PROGRESS_NOTES = 3;
 
 implementation
+
+uses rMisc;
 
 var
@@ -103 +115 @@
   uNoteTitles: TNoteTitles;
   uTIUPrefs: TTIUPrefs;
+  uPatch175Installed: TPatchInstalled;
 
 
@@ -153 +166 @@
   if TitleIEN <= 0 then Exit;
   Result := sCallV('TIU IS THIS A CONSULT?', [TitleIEN]) = '1';
+end;
+
+function IsPRFTitle(TitleIEN: Integer): Boolean;
+begin
+  Result := False;
+  if TitleIEN <= 0 then Exit;
+  Result := sCallV('TIU ISPRF', [TitleIEN]) = '1'; 
 end;
 
@@ -238 +258 @@
 end;
 
-function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64): Boolean;
+function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 { returns TRUE if a cosignature is required for a document title and author }
 begin
-  Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor]), U, 1) = '1';
+  if TIUPatch175Installed then
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor, ADate]), U, 1) = '1'
+  else
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, 0, AnAuthor]), U, 1) = '1';
 end;
 
@@ -258 +281 @@
 end;
 
-function CanCosign(ATitle, ADocType: integer; AUser: Int64): Boolean;
+function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;
 begin
   if ATitle > 0 then ADocType := 0;
-  Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser]), U, 1) <> '1';
+  if TIUPatch175Installed and (ADocType = 0) then
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser, ADate]), U, 1) <> '1'
+  else
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser]), U, 1) <> '1';
 end;
 
@@ -1016 +1042 @@
 function IDNotesInstalled: boolean;
 begin
-  Result := True;
+  Result := True;   // old patch check no longer called
 end;
 
@@ -1123 +1149 @@
 end;
 
+function TIUPatch175Installed: boolean;
+begin
+  with uPatch175Installed do
+    if not PatchChecked then
+      begin
+        PatchInstalled := ServerHasPatch('TIU*1.0*175');
+        PatchChecked := True;
+      end;
+  Result := uPatch175Installed.PatchInstalled;
+end;
+
 function NoteHasText(NoteIEN: integer): boolean;
 begin
   Result := (StrToIntDef(sCallV('ORWTIU CHKTXT', [NoteIEN]), 0) > 0);
 end;
+
 
 initialization